Учеба и наука

• Всего ответов: 1


Валентина
3-й в
411 отзыв
program pr1;
const n=10; 
var a:array[1..n] of integer; 
k,i,s:integer;
begin
writeln('vvedite k');
readln(k);
writeln('vvedite massiv');
for i:=1 to n do
  readln(a[i]);
s:=0;
for i:=1 to n do
  if a[i] mod k =0 then s:=s+a[i];
writeln('s=',s);
readln
end. 
Буду благодарна, если отметите 
октябрь 29, 2012 г.

Похожие вопросы