Дан массив целых чисел.определить количество элементов,кратных 5

139

170

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

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

lera1060

Информатика

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

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.