Program sum_nechet; var a: array [0..100] of integer; var b,i,c,k:integer; begin randomize; for i:=1 to 10 do begin a[i]:=random(10); writeln(a[i]); // Это можно не писать, просто чтобы видеть числа в массиве, если интересно. end; c := 0; b := 0; for i:=1 to 10 do begin if a[i] mod 2 = 0 then b := b + a[i] else c := c+ a[i]; end; writeln('Нечетных ' , c); writeln('Четных ' , b); k:=0; for i:=1 to 10 do begin if a[i] = 0 then k:= k+1 end; writeln('Нулей ' , k) end.
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016 // Внимание! Если программа не работает, обновите её версию!
begin var b:=MatrRandom(4,4,-5,5); b.Println(3); var p:=1; var s:=0; Write('Элементы главной диагонали: '); for var i:=0 to 3 do for var j:=0 to 3 do if i<j then p*=b[i,j] else if i>j then s+=b[i,j] else Write(b[i,j]:3); Writeln(Newline,'П=',p,', S=',s) end.
Пример -2 -1 -2 4 0 1 1 -3 0 1 5 5 3 4 3 2 Элементы главной диагонали: -2 1 5 2 П=-120, S=11
var a: array [0..100] of integer;
var b,i,c,k:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(10);
writeln(a[i]); // Это можно не писать, просто чтобы видеть числа в массиве, если интересно.
end;
c := 0;
b := 0;
for i:=1 to 10 do
begin
if a[i] mod 2 = 0 then
b := b + a[i]
else
c := c+ a[i];
end;
writeln('Нечетных ' , c);
writeln('Четных ' , b);
k:=0;
for i:=1 to 10 do
begin
if a[i] = 0 then
k:= k+1
end;
writeln('Нулей ' , k)
end.