Дан массив из n элементов. написать программу увеличивающую все элементы на 3.
Дан массив из n элементов. написать программу увеличивающую все элементы на 3.
Гость
Ответ(ы) на вопрос:
Гостьprogram keke;
const n=5;
var a:array[1..n] of integer;
i:integer;
begin
For i:= 1 to n do
readln(a[i]);
FOr i:= 1 to n do
a[i]:=a[i]+3;
for i:= 1 to n do
writeln(a[i]);
readln;
end.
Не нашли ответ?
Похожие вопросы