Составьте программу,которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10,затем элементы с четными индексами удваивает, а элементы с нечетными индексами утраивает. Выведите на экран исходный и полученный массивы.
Ответы
Ответ дал:
0
var a:array [1..10] of integer;
i:integer;
begin
For i:=1 to 10 do
begin
a[i]:=random(10)+1;
Write(a[i],' ');
If i mod 2 = 0
then
a[i]:=a[i]*2
else
a[i]:=a[i]*3;
end;
Writeln;
For i:=1 to 10 do
Write(a[i],' ');
end.
i:integer;
begin
For i:=1 to 10 do
begin
a[i]:=random(10)+1;
Write(a[i],' ');
If i mod 2 = 0
then
a[i]:=a[i]*2
else
a[i]:=a[i]*3;
end;
Writeln;
For i:=1 to 10 do
Write(a[i],' ');
end.
Ответ дал:
0
Спасибо
Ответ дал:
0
а можешь помочь https://znanija.com/task/27106415
Ответ дал:
0
Пж!!!
Вас заинтересует
1 год назад
2 года назад
8 лет назад