Предмет: Информатика,
автор: mari1147
"массив в состоит из 15 элементов заполненными от 0 до 50 радномно, вычислите количество четных элементов"
Напишите программу Паскаля
Ответы
Автор ответа:
0
var a: array [1..15] of integer;
i,n:integer;
begin
for i:=1 to 15 do begin
a[i]:=random(50);
if (a[i] mod 2)=0 then
n:=n+1;
end;
writeln(a);
writeln;
writeln(n);
end.
i,n:integer;
begin
for i:=1 to 15 do begin
a[i]:=random(50);
if (a[i] mod 2)=0 then
n:=n+1;
end;
writeln(a);
writeln;
writeln(n);
end.
Автор ответа:
0
спасибо большое <3
Автор ответа:
0
Uses crt;
Var a:array [1..15] of integer;
i,k:integer;
begin
for i:=1 to 15 do
begin
a[i]:=random(50)-20;
write (a[i]:4);
k:=0;
end;
writeln;
for i:=1 to 15 do
if a[i]>0 then
begin
k:=k+1;
end;
writeln ('колво элементов',k);
end.
Var a:array [1..15] of integer;
i,k:integer;
begin
for i:=1 to 15 do
begin
a[i]:=random(50)-20;
write (a[i]:4);
k:=0;
end;
writeln;
for i:=1 to 15 do
if a[i]>0 then
begin
k:=k+1;
end;
writeln ('колво элементов',k);
end.
Автор ответа:
0
Это положительные элементы
Похожие вопросы
Предмет: Русский язык,
автор: dauletkyzyd9
Предмет: Алгебра,
автор: alinurbajdulla
Предмет: Биология,
автор: karisha03062008
Предмет: Алгебра,
автор: Brazzers99
Предмет: Биология,
автор: polinacunep