Сформировать массив из 10 случайных чисел от 2 до 8.
1)все четные числа разделить на 2,все нечетные увеличить в 3 раза.
2)вывести на экран все числа,которые больше своего соседа слева
ребята,помогите пожалуйста,нужно очень срочно.хотя бы 1 часть)

1

Ответы и объяснения

2013-12-17T18:42:12+04:00
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.
если хочеш узнать заданные числа добавь в первый for после read ---write(a[i],' ');
как сделать,что бы твой ответ был лучшим?)
да не надо этого сделать(мне рештинг вообще ненужен я просто проверяю свои знания)
спасибо)