Исидор
6 год назад
Дан массив D из 10 элементов заполняется с клавиатуры найти сумму элементов кратных трем
Спасибо!
ОТВЕТЫ
Корнилий
Jul 8, 2019
Program sum;
var arr:array[1..10] of integer;
res,i:integer;
begin
for i:= 1 to 10 do readln(arr[i]);
for i:= 1 to 10 do
if arr[i] mod 3 = 0 then res:=res+arr[i];
write(res);
end.
var arr:array[1..10] of integer;
res,i:integer;
begin
for i:= 1 to 10 do readln(arr[i]);
for i:= 1 to 10 do
if arr[i] mod 3 = 0 then res:=res+arr[i];
write(res);
end.
256
Смежные вопросы:
