СРОЧНО!!!!ПОМОГИТЕ ПОЖАЛУЙСТА!!!дан массив целых чисел.определить количество элементов,кратных 5
Ответы на вопрос
Ответил Anton7101
0
program chkr5;
const N=10;
var a:array [1..N] of integer; chkr,i:integer; flag:boolean;
//Создаем массив из 10 (N) элементов
begin
randomize; flag:=false;
//Присваиваем переменной flag отрицательное значение, эта переменная потом поможет нам проверить есть ли в массиве числа кратные 5
for i:=1 to N do begin
a[i]:=random (21)-10;
write (a[i], ' ');
//Заполняем массив числами на диапозоне [-10;10] и выводим его
if a[i] mod 5=0 then begin chkr:=chkr+1; flag:=true; end;
//Каждый раз проверяем: Если элемент при делении на 5 дает в остатке 0, тогда в переменную записываем плюс единичку (к переменной +1)
end;
writeln;
if flag=true then write ('Чисел, кратных 5: ', chkr) else write ('Чисел, кратных 5 нет');
//Выводим результат, если цикл if выполнялся хоть раз (было хоть одно число, кратное 5), иначе говорим, что таких чисел нет
end.
Ответил aniakuzja1
0
спасибо
Новые вопросы