Подсчитать количество элементов массива, кратных 3 и больших 50 в массиве А {1...10}

Подсчитать количество элементов массива, кратных 3 и больших 50 в массиве А {1...10}
Гость
Ответ(ы) на вопрос:
Гость
var a:array[1..10] of integer; i, k:integer; begin for i:=1 to 10 do begin write(i,'-й элемент: '); readln(a[i]); end; k:=0; for i:=1 to 10 do if a[i]>50 and a[i] mod 3 = 0 then k:=k+1; writeln(k,' чисел'); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы