1. Дан одномерный массив из N элементов?

Tinka27 26 сент. 2020 г., 19:41:17

1)var ar : array of integer ;

max, min, s, i, n, maxi, mini : integer ;

begin ;

randomize ;

max : = - 1 ;

min : = 101 ;

readln(n) ;

setlength(ar, n + 1) ;

writeln('Array : ') ;

for i : = 1 to n do

begin ; ar[i] : = random(100) ; write(ar[i] : 4) ; if max< ; ar[i] then begin ; max : = ar[i] ; maxi : = i ; end ; if min> ; ar[i] then begin ; min : = ar[i] ; mini : = i ; end ; s : = s + ar[i] ;

end ;

ar[maxi] : = s ;

ar[mini] : = s ;

writeln ;

writeln('Final array : ') ;

for i : = 1 to n do

write(ar[i] : 4) ;

end.

2)var ar : array of integer ;

k, h, i, s : integer ;

f : real ;

begin ;

randomize ;

readln(h) ;

setlength(ar, h + 1) ;

writeln('Array : ') ;

for i : = 1 to h do

begin ; ar[i] : = random(100) - 50 ; write(ar[i] : 4) ; if (ar[i]> ; 0) and (ar[i] mod 2 = 0) then begin ; inc(k) ; s : = s + ar[i] ; end ;

end ;

f : = s / k ;

writeln ;

writeln('Result : ', f) ;

end.

Elnara77707 2 апр. 2020 г., 19:23:39 | 5 - 9 классы

Дан одномерный массив, состоящий из 10 элементов?

Дан одномерный массив, состоящий из 10 элементов.

Сосчитать сумму четных элементов массива.

Диана200356 19 янв. 2020 г., 19:36:48 | 5 - 9 классы

Одномерные массивы?

Одномерные массивы.

Дан массив натуральных чисел, состоящий из n элементов.

Найти сумму элементов массива, кратных данному числу К.

(паскаль).

Настя2005 3 янв. 2020 г., 06:37:14 | 5 - 9 классы

Дан одномерный массив, состоящий из вещественных элементов?

Дан одномерный массив, состоящий из вещественных элементов.

Найти сумму элементов массива, расположенных до последнего положительного элемента.

Julia8282 3 дек. 2020 г., 11:36:00 | 5 - 9 классы

Дан одномерный массив, состоящий из N элементов?

Дан одномерный массив, состоящий из N элементов.

Найти максимальный из нечетных элементов массива.

Ovsyanikovanas 28 мар. 2020 г., 18:53:34 | 5 - 9 классы

Дан одномерный массив чисел?

Дан одномерный массив чисел.

Определить среднее арифметическое элементов массива.

Pinirob 14 дек. 2020 г., 08:01:44 | 10 - 11 классы

Сформировать одномерный массив из 10 целых элементов?

Сформировать одномерный массив из 10 целых элементов.

Найти сумму положительных и четных элементов массива.

SarymovaKaramelya 4 июл. 2020 г., 23:23:18 | 5 - 9 классы

Одномерные массивы?

Одномерные массивы.

Дан массив натуральных чисел, состоящий из n элементов.

Найти сумму элементов массива, кратных данному числу К.

Mint2009 19 дек. 2020 г., 18:48:29 | 10 - 11 классы

Дан одномерный массив, состоящий из 20 элементов?

Дан одномерный массив, состоящий из 20 элементов.

Найти сумму элементов массива, принадлежащих промежутку от А до В PASCAL.

Tatyanka2830 19 июн. 2020 г., 09:57:48 | 10 - 11 классы

Дан одномерный массив, состоящий из 20 элементов?

Дан одномерный массив, состоящий из 20 элементов.

Найти сумму элементов массива, принадлежащих промежутку от А до В.

Помогать1 6 нояб. 2020 г., 19:51:15 | 5 - 9 классы

Pascal 1?

Pascal 1.

Найти среднее арифметическое положительных элементов одномерного массива.

2. Найти минимальный элемент одномерного массива.