Const n=10; var a: array[1..n] of integer; i,m,n,max:integer; begin randomize; a[1]:=random(300); max:=a[1]; write(a[1],' '); for i:=2 to n do begin a[i]:=random(300); if a[i]>max then max:=a[i]; write(a[i],' '); end; writeln;
for i:=1 to n do if (a[i]>0 then a[i]:=a[i]*max; for i:=1 to n do write(a[i],' '); end.
Компьютеры используются с ХХ века, их возможности поражают, с компьютера можно войти в мировую паутину связывающую все компьютеры, так же на компьютере можно рисовать с специальной программы Paint, и печать с программы Word. В школах так же учат работать на компьютерах и програмированию. Бывают разные языки програмирования, такие как C++, Java, Паскаль, Pyton и другие. С этих "языков" люди могут создавать самые разные программы, от калькуляторов до сложнейших видео - игр. Работать с компьютером должен уметь каждый ребенок и взрослый начиная с 7 лет, компьютеры развивать свой мозг, за компьютерами будущее!
var a: array[1..n] of integer;
i,m,n,max:integer;
begin
randomize;
a[1]:=random(300);
max:=a[1];
write(a[1],' ');
for i:=2 to n do
begin
a[i]:=random(300);
if a[i]>max then max:=a[i];
write(a[i],' ');
end;
writeln;
for i:=1 to n do
if (a[i]>0 then a[i]:=a[i]*max;
for i:=1 to n do
write(a[i],' ');
end.