Предмет: Информатика,
автор: avlasenkooleg1498
сформировать массив из 10 случайных чисел от 2 до 8.
1)все четные числа разделить на 2,все нечетные увеличить в 3 раза.
2)вывести на экран все числа,которые больше своего соседа слева
ребята,помогите пожалуйста,нужно очень срочно.хотя бы 1 часть)
Ответы
Автор ответа:
0
Program z10;
var a,b: Array [1..10] of integer;
i:integer;
Begin
Randomize;
For i:=1 to 10 do
begin
a[i]:=random(999);
end;
for i:=1 to 10 do
begin
if(a[i] mod 2=0)then [i]:=a[i] div 2 else a[i]:=a[i]*3;
write(a[i],' ');
end;
2)
Program z10;
var a,b: Array [1..10] of integer;
i,r:integer;
Begin
Randomize;
For i:=1 to 10 do
begin
a[i]:=random(999);
end;
r:=a[1];
for i:=2 to 10 do
begin
if(a[i]>r)then write(a[i],' ');
r:=a[i];
end;
end.
var a,b: Array [1..10] of integer;
i:integer;
Begin
Randomize;
For i:=1 to 10 do
begin
a[i]:=random(999);
end;
for i:=1 to 10 do
begin
if(a[i] mod 2=0)then [i]:=a[i] div 2 else a[i]:=a[i]*3;
write(a[i],' ');
end;
2)
Program z10;
var a,b: Array [1..10] of integer;
i,r:integer;
Begin
Randomize;
For i:=1 to 10 do
begin
a[i]:=random(999);
end;
r:=a[1];
for i:=2 to 10 do
begin
if(a[i]>r)then write(a[i],' ');
r:=a[i];
end;
end.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: anuralin736
Предмет: Английский язык,
автор: Layra090909
Предмет: Қазақ тiлi,
автор: binarakambar95
Предмет: География,
автор: Леночка8081996
Предмет: Математика,
автор: ben278