Program Exp_1;
Var
a:array[1..5] of integer;
i:integer;
Begin
for i:=1 to 5 do
Begin
write('Vvedite ',i,'-yi element massiva ');
Readln(a[i]);
End;
Write('Ishodny massiv: ');
for i:=1 to 5 do
write(a[i],' ');
writeln;
writeln('Poluchenny massiv: ');
for i:=1 to 5 do
write(a[i]+5,' ');
Readln;
End.
Program Exp_2;
Var
a:array[1..10] of integer;
i:integer;
Begin
for i:=1 to 10 do
Begin
write('Vvedite ',i,'-yi element massiva ');
Readln(a[i]);
End;
Write('Ishodny massiv: ');
for i:=1 to 10 do
write(a[i],' ');
writeln;
writeln('Poluchenny massiv: ');
for i:=1 to 5 do
write(a[i]+5,' ');
for i:=6 to 10 do
write(a[i]*5,' ');
Readln;
End.
Program Exp_3;
Const
n=10;
Var
a:array[1..n] of integer;
i:integer;
Begin
for i:=1 to n do
begin
a[i]:=5;
write(a[i]:3);
read;
end;
End.
4 ответ