Предмет: Информатика,
автор: simpsonsuslik
дан массив из 20 целых чисел сколько в нем элементов равных 1
bazi15121994mai:
Вы не написали, что вам нужно! Вам никто не поможет без конкретной задачи...
нужно написать программу в паскале абс
program pr1;
const size = 20;
const rnd = 99999;
var
a: array [1..size] of integer;
i, c: integer;
function rand (min, max: integer): integer;
begin
rand:= round(random(rnd) * (max - min) / rnd + min);
end;
begin
randomize;
c := 0;
for i:=1 to size do
a[i]:= rand(-2, 2);
for i:=1 to size do
begin
write(a[i],' | ');
if(a[i]=1) then
c:= c + 1;
end;
writeln();
writeln('Количество элементов равных 1: ',c);
end.
const size = 20;
const rnd = 99999;
var
a: array [1..size] of integer;
i, c: integer;
function rand (min, max: integer): integer;
begin
rand:= round(random(rnd) * (max - min) / rnd + min);
end;
begin
randomize;
c := 0;
for i:=1 to size do
a[i]:= rand(-2, 2);
for i:=1 to size do
begin
write(a[i],' | ');
if(a[i]=1) then
c:= c + 1;
end;
writeln();
writeln('Количество элементов равных 1: ',c);
end.
Ответы
Автор ответа:
0
Ответ:
program z1;
var a:array[1..20]of integer;
i,k:integer;
begin
k:=0;
write('Массив: ');
for i:= 1 to 20 do
begin
a[i]:= random(10);
write(a[i]:3);
if a[i]=1 then k:=k+1
end;
writeln;
write(k,' элемент (-а, -ов) = 1')
end.
Похожие вопросы
Предмет: Русский язык,
автор: susulush84
Предмет: Русский язык,
автор: andreykolupaev
Предмет: Другие предметы,
автор: авыапврапр
Предмет: Математика,
автор: вика0000777
Предмет: Биология,
автор: Julia8392