Компьютеры используются с ХХ века, их возможности поражают, с компьютера можно войти в мировую паутину связывающую все компьютеры, так же на компьютере можно рисовать с специальной программы Paint, и печать с программы Word. В школах так же учат работать на компьютерах и програмированию. Бывают разные языки програмирования, такие как C++, Java, Паскаль, Pyton и другие. С этих "языков" люди могут создавать самые разные программы, от калькуляторов до сложнейших видео - игр. Работать с компьютером должен уметь каждый ребенок и взрослый начиная с 7 лет, компьютеры развивать свой мозг, за компьютерами будущее!
Const n=5; m=12; var a:array[1..n,1..m] of integer; i,j,s,max,imax:integer; begin Randomize; writeln('Зарплата за год:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(15000)+10000; write(a[i,j]:6); end; writeln; end; writeln('Средние зарплаты по месяцам:'); max:=0; for j:=1 to m do begin s:=0; for i:=1 to n do s:=s+a[i,j]; write(s/n:5:2,' '); if s>max then begin max:=s; imax:=j; end; end; writeln; writeln('max = ',max/n:5:2,' месяц:',imax); end.
Пример (для 4 месяцев, т.е. m=4): Зарплата за год: 12533 11176 15153 14194 12649 22212 15546 17586 23643 15664 15538 21740 24382 10015 15816 24377 11388 12739 18790 21034 Средние зарплаты по месяцам: 16919.00 14361.20 16168.60 19786.20 max = 19786.20 месяц:4
var
a:array[1..n,1..m] of integer;
i,j,s,max,imax:integer;
begin
Randomize;
writeln('Зарплата за год:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(15000)+10000;
write(a[i,j]:6);
end;
writeln;
end;
writeln('Средние зарплаты по месяцам:');
max:=0;
for j:=1 to m do
begin
s:=0;
for i:=1 to n do s:=s+a[i,j];
write(s/n:5:2,' ');
if s>max then begin max:=s; imax:=j; end;
end;
writeln;
writeln('max = ',max/n:5:2,' месяц:',imax);
end.
Пример (для 4 месяцев, т.е. m=4):
Зарплата за год:
12533 11176 15153 14194
12649 22212 15546 17586
23643 15664 15538 21740
24382 10015 15816 24377
11388 12739 18790 21034
Средние зарплаты по месяцам:
16919.00 14361.20 16168.60 19786.20
max = 19786.20 месяц:4