Сформировать матрицу размером 5*8 случайным образом из диапазона значений 0-10. вывести ее на экран и определить количество элементов больших пяти в третьем столбце и их сумм если таких элементов нет то указать что они отсутствуют
Var a=array [1..5,1..8]of byte; i,j,sum:integer; begin for i:=1 to 5 do for j:=1 to 8 do a[i,j]:=random(10); for i:=1 to 5 do begin for j:=1 to 8 do write(" ",a[i,j]); writeln(); end; sum:=0; for i:=1 to 5 do for j:=1 to 8 do if (a[i,j]>5) then sum:=sum+a[i,j]; if (sum<>0)then writeln("summa= ",sum) else if (sum=0) then writeln("net bolhe 5"); end.
Var a:array [1..10, 1..10] of integer; i, j, max, min, imin, imax, jmin, jmax:integer; begin imax:=0; imin:=0; jmax:=0; jmin:=0; max:=-maxint; min:=maxint; for i:=1 to 10 do begin for j:=1 to 10 do begin a[i,j]:=random(89)+10; write(a[i,j],' '); if a[i,j]<min then begin min:=a[i,j]; imin:=i; jmin:=j; end; if a[i,j]>max then begin max:=a[i,j]; imax:=i; jmax:=j; end; end; writeln; end; writeln; writeln('Максимальный элемент:',max); writeln('Его индекс ',imax,' ',jmax); writeln('Минимальный элемент:',min); writeln('Его индекс ',imin,' ',jmin); end.
Var a:array [1..10, 1..10] of integer; i, j, max, min, imin, imax, jmin, jmax:integer; begin imax:=0; imin:=0; jmax:=0; jmin:=0; max:=-maxint; min:=maxint; for i:=1 to 10 do begin for j:=1 to 10 do begin a[i,j]:=random(89)+10; write(a[i,j],' '); if a[i,j]<min then begin min:=a[i,j]; imin:=i; jmin:=j; end; if a[i,j]>max then begin max:=a[i,j]; imax:=i; jmax:=j; end; end; writeln; end; writeln; writeln('Максимальный элемент:',max); writeln('Его индекс ',imax,' ',jmax); writeln('Минимальный элемент:',min); writeln('Его индекс ',imin,' ',jmin); end.
i,j,sum:integer;
begin
for i:=1 to 5 do
for j:=1 to 8 do
a[i,j]:=random(10);
for i:=1 to 5 do
begin
for j:=1 to 8 do
write(" ",a[i,j]);
writeln();
end;
sum:=0;
for i:=1 to 5 do
for j:=1 to 8 do
if (a[i,j]>5) then sum:=sum+a[i,j];
if (sum<>0)then writeln("summa= ",sum) else if (sum=0) then writeln("net bolhe 5");
end.