Подсчитать сумму положительных элементов массива,кратных 3 - Pascal ABC

Формулировка задачи:

Задан массив из 12 целых чисел.Подсчитать сумму положительных элементов массива,кратных 3.

Код к задаче: «Подсчитать сумму положительных элементов массива,кратных 3 - Pascal ABC»

textual
const N=12;
var a:array[1..N] of integer; i,b:integer;
begin
b:=0;
//заполнение массива
for i:=1 to N do begin
writeln('введите ',i,'-ый элемент');
readln(a[i]);
end;
//обработка массива
for i:=1 to N do
if (a[i]>=0) and (a[i] mod 3 = 0) then b:=b+a[i];
writeln('ответ - ',b);
end.

14   голосов, оценка 4.071 из 5


СОХРАНИТЬ ССЫЛКУ