Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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] end;
writeln(Максимальный  элемент массива = , max);
writeln(Минимальный  элемент массива = , min);
end.