Предмет: Информатика,
автор: zxcvbnm87
Составить массив из 10 целых случайных чисел на промежутке от -30 до 30. Вывести массив. Найти количество чётных элементов и вывести их номера
Ответы
Автор ответа:
0
var
i,count:integer;
mas: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
mas[i]:=random(-30,30);
write(mas[i], ' ');
end;
writeln('');
writeln('Номера четных элементов');
count:=0;
for i:=1 to 10 do begin
if mas[i] mod 2 = 0 then begin
write(i,' ');
count:=count+1;
end;
end;
writeln('');
writeln('Количество четных элементов = ', count);
end.
i,count:integer;
mas: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
mas[i]:=random(-30,30);
write(mas[i], ' ');
end;
writeln('');
writeln('Номера четных элементов');
count:=0;
for i:=1 to 10 do begin
if mas[i] mod 2 = 0 then begin
write(i,' ');
count:=count+1;
end;
end;
writeln('');
writeln('Количество четных элементов = ', count);
end.
Похожие вопросы
Предмет: Українська мова,
автор: princesssssssss38
Предмет: Русский язык,
автор: Аноним
Предмет: Физика,
автор: macsimkurban
Предмет: Математика,
автор: mamapapa
Предмет: Математика,
автор: Аноним