1)дан массив из N элементов. определить сумму тех, которые четны и положительны.
2)Дан массив из n элементов. В нем четные числа заменить на 0, нечетные на -1, вывести на экран монитора содержимое массива до обработки и после обработки.
Ответы на вопрос
Ответил ЕленкО
0
Program N;
Var a,n,i,s: integer;
Begin Writeln('n=');Readln(n);
s:=0;
For i:=1 to n do Begin a[i]:=random(100);
write(a:4); end; writeln; writeln('izmenenni massiv'); for i:=1 to n do begin If (a mod 2)=0 then a:=0 else a:=1; write(a:4);
end;
readln;
End.
Новые вопросы
Математика,
2 года назад
Русский язык,
2 года назад
Математика,
9 лет назад
Математика,
10 лет назад
География,
10 лет назад