Ответ:
program z1;
var i,n,m:integer;
a : array [1..100] of integer;
begin
write ('n (n<=100) = ');
readln(n);
write ('m = ');
readln(m);
for i:= 1 to n do
write ('a [',i,'] = ');
readln(a[i])
end;
writeln;
write ('Массив: ');
for i:= 1 to n do write(a[i],' ');
a[i]:=a[i]+m;
write(a[i],' ')
end
end.
Объяснение:
Вводим n, m, а затем числа в массив
Выводим массив
Вычисляем изменение элементов массива и выводим их
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
program z1;
var i,n,m:integer;
a : array [1..100] of integer;
begin
write ('n (n<=100) = ');
readln(n);
write ('m = ');
readln(m);
for i:= 1 to n do
begin
write ('a [',i,'] = ');
readln(a[i])
end;
writeln;
write ('Массив: ');
for i:= 1 to n do write(a[i],' ');
writeln;
write ('Массив: ');
for i:= 1 to n do
begin
a[i]:=a[i]+m;
write(a[i],' ')
end
end.
Объяснение:
Вводим n, m, а затем числа в массив
Выводим массив
Вычисляем изменение элементов массива и выводим их