Ответы
Ответ дал:
0
Const
N=10 //размер массива
Type
A=array[1..n]of real;
Var
I,B:integer;
Begin
For I=1 to n do
Read(a[i]); //ввели массив
Read(b);
For I=1 to n do
Begin
A[i]:=a[i]+b;
Write(a[i]);
End
End.
N=10 //размер массива
Type
A=array[1..n]of real;
Var
I,B:integer;
Begin
For I=1 to n do
Read(a[i]); //ввели массив
Read(b);
For I=1 to n do
Begin
A[i]:=a[i]+b;
Write(a[i]);
End
End.
Вас заинтересует
1 год назад
1 год назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад