На массив (паскаль): массив (подсчёт суммы) а) дан массив целых чисел. найти сумму нечётных элементов. б) дан массив. определить максимальный и минимальный элемент.

172

339

Посмотреть ответы 2

Ответы на вопрос:

IkaNika

Информатика

4,6(65 оценок)

Var a: array[1..1000] of integer; i,s,n: integer; begin write ('введите размер массива n= ') ; readln(n); for i: =1 to n do a[i] : =random(50)-30; for i: =1 to n do write(a[i],' '); writeln; s: =0; for i: = 1 to n do if a[i] mod 2 < > 0 then s : =s+a[i]; writeln('сумма нечетных элементов массива = ', s); end. 2. var a: array[1..1000] of integer; i,max,min,n: integer; begin write ('введите размер массива n= ') ; readln(n); for i: =1 to n do a[i] : =random(50)-30; for i: =1 to n do write(a[i],' '); writeln; max: =-32768; min: =32767; for i: = 1 to n do begin if a[i] > max then max: =a[i]; if a[i] < min then min: =a[i]; end; writeln('максимальный элемент массива = ', max); writeln('минимальный элемент массива = ', min); end.