Регистрация
969696ааа
19.02.2023 22:03
Информатика
Есть ответ 👍

Заполнить массив из 20 целых элементов случайными числами из диапазона от 5 до 20. Обеспечить вывод исходного массива на экран. Подсчитать количество чётных элементов массива решить

223
286
Посмотреть ответы 2

Ответы на вопрос:

Girl1girl
Girl1girl
4,7(7 оценок)

var

i,c:integer; //Объявляем переменные

mas: array [1..20] of integer; //Объявляем массив

begin

c:=0; //Обнуляем переменную c

writeln('20 случайных чисел:'); //выводим на экран сообщение

randomize; //запускам рандом

for i:=1 to 20 do begin //запускаем цикл для массива от 1го до 20го элемента по очереди

mas[i]:=random(5,20); //генерируем число от 5 до 20

if mas[i] mod 2 = 0 then begin //запускам проверку, на четность числа. Если оно делится без остатка на 2

c:=c+1; //то к переменной c прибавляем единицу (значит оно четное

end;

write(mas[i], ' '); //Выводим наш массив

end;

writeln(); //пробел между строк

writeln('Количество четных элементов = ', c); //выводим количество четных элементов  

end.

нононононон
нононононон
4,4(36 оценок)

var a,b,c,min:integer;

begin

readln(a);

readln(b);

readln(c);

min:= a;

if min > b then min:= b;

if min > c then min:= c;

writeln(min);

end.

а) 3

б) 2

в) 2

г) 1

Популярно: Информатика