Код написан на Pascal (только умоляю, будь аккуратен с отступами и табуляцией). Также прикрепил вывод компилятора (красным обвёл то, что нужно именно тебе, на остальное не обращай внимания). Также код есть в текстовом фале (его тоже прикрепил):
uses crt;
const n=10;
var m : array[1..n] of integer;
i, max, max_i : integer;
begin
for i:= 1 to n do
begin
m[i]:= random(-10) + 10;
write(m[i],' ');
end;
max:= m[1];
max_i:= 1;
for i:= 1 to n do
begin
if (max > m[i]) then
begin
max:= m[i];
max_i:= i;
end;
end;
writeln();
writeln('max = m[',max_i,']');
writeln('max = ',max);
end.
![с информатикой! Массив задан следующим образом: Const N=10; Var m : array[1..N] of integer; Найти зн](/tpl/images/1255/6212/8126b.jpg)
Программы на языке Pascal.
Ввод элементов массива с клавиатуры:
program a;
const N=10;
var m: array [1..N] of integer;
i, max: integer;
begin
max:= -32768;
for i:= 1 to N
do begin
readln(m[i]);
if(m[i]>max)
then max:= m[i];
end;
writeln(max);
end.
Заполнение массива случайными числами:
program a;
const N=10;
var m: array [1..N] of integer;
i, max: integer;
begin
randomize;
max:= -32768;
for i:= 1 to N
do begin
m[i]:= random(-32768, 32767);
if(m[i]>max)
then max:= m[i];
end;
writeln(max);
end.
Const n=4;
m=4;
var A:array[1..n,1..m] of integer;
i,j,k,s:integer;
sr:real;
BEGIN
For i:=1 to n do
begin
for j:=1 to m do
begin
A[i,j]:=5-Random(15);
Write(A[i,j]:4);
end;
Writeln();
end;
For i:=1 to n do
begin
s:=0; k:=0;
for j:=1 to m do
begin
If A[i,j]<0 then
begin
s:=s+A[i,j];
inc(k);
sr:=s/k;
end;
end;
Writeln('Строка: ',i,'; Сумма: ',s,'; Количество: ',k,'; Ср. ариф.: ',sr:2:2);
end;
END.