var
a:array [1..100,1..100] of integer;
i,j,sr,n,m,s:integer;
begin
Writeln('Введите N');
readln(n);
Writeln('Введите M');
readln(m);
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(10)+1;
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
j:=1;
for j:=1 to m do
for i:=1 to n do begin
s:=s+a[i,j];
sr:=sr+1;
if i=n then begin
writeln('(',j,')','Среднее арифм= ',s/sr);
s:=0;
sr:=0;
end;
end;
readln;
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

20.06.2017, 16:21

Ответы с готовыми решениями:

Перевести из паскаля в кумир
var i, n: integer; s: real; begin write('n = '); read(n); s := 0; for i :=...

Перевести программу из паскаля в кумир
Program From2To10; var n2: Longint; n10, m, i: Integer; begin Write('n2 = '); ...

Перевести программу из паскаля в кумир
var ar: Array Of Real; i, j: Byte; k, n, m: Integer; mult: Extended; //Double | Real...

Перевести программу из паскаля в кумир
Var a: array of integer; i, k, max: integer; begin k:=1;for i:=1 to 10 do begin...

	20.06.2017, 16:21

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

20.06.2017, 16:21

Помогаю со студенческими работами здесь

Перевести программу из паскаля в кумир
Program z1; uses crt; const nmax=20; var n,x,s,y,p,i:integer; A:array of integer; begin...

Перевести с паскаля на кумир
Привет всем. Помогите пожалуйста перевести код с паскаля на кумир. 1 Задача: var...

Как перевести из паскаля в кумир?
const n=5; type mas=array of integer; var a:mas; i: integer; k:real;...

Каким образом можно перевести код Паскаля в код Фортран?
Здравствуйте уважаемые программисты! Может быть банальная, но довольно сложная проблема - перевод...

Как перевести код с паскаля на Java. Пытался сам но код не хочет работать переведенный
А сам код на паскале работает. Вот код на паскале var i,j,m,c,d: integer; A:array of...

перевести код из паскаля на с++
var i, a, n, s: int64; j, t:longint; procedure out; begin writeln (s); halt; end; ...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх