FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Email: Нажмите что бы посмотреть
For i:=1 to n do
Readln (b[i]); { ввод массива b}
For i:=1 to n do
C[i]:=a[i]+b[i];{ вычисление суммы массивов }
For i:=1 to n do
write (c[i],' '); { вывод массива с }
end.
if (g mod 5 = 0) then
s:=s+1;
end;
writeln(s);
end.