Jolas
6 год назад
Помогите пожалуйста очень нужно!!!!!!!!умоляю в Паскале прошу это работа над ошибками
ОТВЕТЫ
Kievizom
Jul 3, 2019
const m = 100;
var i,n,s,mx: integer;
a: array[1..m] of integer;
begin
write(размер массива: ); readln(n);
randomize;
s:=0; mx:= -12;
writeln(исходный массив: );
for i:=1 to n do
begin
a[i]:=random(-11,34);
write(a[i], );
if (a[i]lt;0) and (a[i]gt;mx) then mx:=a[i];
if ((a[i]gt;0) and (a[i] mod 2 = 1)) then s:=s+a[i];
end;
writeln;
writeln(максимальный среди отрицательных: ,mx);
writeln(сумма нечетных положительных: ,s);
end.
размер массива: 15
исходный массив:
17 -10 17 0 5 2 26 9 27 8 21 19 18 5 21
максимальный среди отрицательных: -10
сумма нечетных положительных: 141
290
Смежные вопросы:
