сформировать массив из 10 случайных чисел от 2 до 8.

+ 0 -

Egoryurin87

14 марта 2017 г., 11:05:42 (7 лет назад)

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.