29.08.2009, 23:20
|
#9 (permalink)
|
|
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
№3
задача номер 3
uses crt;
var a:array [1..50] of integer;
i,n,s:integer;
begin
clrscr;
write ('Введи размер массива: ');
readln (n);
s:=0;
writeln ('Вооди массив');
for i:=1 to n do begin
read (a[i]);
if (a[i] mod 5=0)and(a[i] mod 8=0) then
inc(s,a[i]);
end;
writeln ('Сумма кратных элементов: ', s);
readkey;
end.
проверяй
|
|
|