1 вопрос Написать программу. Ввести c клавиатуры массив из 10 элементов, увеличить каждый элемент на 5 и вывести на экран.
2 вопрос
Написать программу. Ввести c клавиатуры массив из 10 элементов. Увеличить на 5 все элементы в первой половине
массива и увеличить в 5 раз все элементы во второй половине массива. Вывести на экран.
3 вопрос
Написать программу. Заполните массив A из 10 элементов пятерками.
ПАСКАЛЬ
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.