& двумерные массивы - 10 класс! заполнить массив b ( m на n ) целыми случайными числами в интервале [17; 95], вывести на экран и найти среднее арифметическое кратных 5
Const nx=30; mx=30;var r:array[1..nx,1..mx] of integer;i,j,n,m,k,sum:integer; sr:real; beginrandomize;write('Введите n и m: ');readln(n, m); writeln('Исходная матрица: ');for i:=1 to n dobeginfor j:=1 to m dobeginr[i,j]:=random(78)+17;write(r[i,j]:4);end;writeln;end;writeln;for i:=1 to n dobeginfor j:=1 to m dobeginif r[i,j] mod 5 = 0 Then beginsum:= sum + r[i,j];write(r[i,j]:4);end;end;end;writeln;write(sum:4);end.
Var x,y,rast:array [1..100] of Integer ; n:Integer;
function maxrast(n:Integer;x,y:array [1..100] of integer): real; var i,j:integer; max:real; begin for i:=1 to n do for j:=1 to n do if sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]))>max then max:= sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j])); maxrast:=max; end;
procedure vvod(n:Integer); var i:integer; begin for i:=1 to n do begin WriteLn('Введите координату x ',i,' отрезка'); ReadLn(x[i]); WriteLn('Введите координату y ',i,' отрезка'); ReadLn(y[i]); end; end;
begin Writeln('Введите количество точек'); ReadLn(n); vvod(n); Writeln('Длина наибольшего отрезка составленного из заданных точек = ',maxrast(n,x,y)); end.
beginrandomize;write('Введите n и m: ');readln(n, m);
writeln('Исходная матрица: ');for i:=1 to n dobeginfor j:=1 to m dobeginr[i,j]:=random(78)+17;write(r[i,j]:4);end;writeln;end;writeln;for i:=1 to n dobeginfor j:=1 to m dobeginif r[i,j] mod 5 = 0 Then beginsum:= sum + r[i,j];write(r[i,j]:4);end;end;end;writeln;write(sum:4);end.