Дан двумерный массив целых чисел. Определить сколько раз встречается в каждой ст...

August 2022 1 1 Report

Дан двумерный массив целых чисел. Определить сколько раз встречается в каждой строке минимальный элемент, вывести сообщения. (Паскаль)

Answers & Comments

bоtsman КОД в Turbo Pascal

USES CRT;
VAR A:array[1..5,1..5] of integer;
i,j,min,s:integer;
BEGIN
CLRSCR;
Randomize;
{заполняем массив случайными числами от 0 до 10}
for i:=1 to 5 do
for j:=1 to 5 do
A[i,j]:=random(10);

{Выводим массив на экран}
  for i:=1 to 5 do
  begin
  for j:=1 to 5 do
Write(A[i,j]:2, ' ');
  Writeln;
  end;

min:=A[1,1]; {Присваиваем минимальному значению первый элемент массива}

{Ищем минимальный элемент в массиве}
for i:=1 to 5 do
for j:=1 to 5 do
   if A[i,j]<min then min:=A[i,j];

Writeln('Минимальный элемент в данном массиве = ',min);

{Обнуляем счетчик}
s:=0;

{Считаем сколько минимальных элементов в каждой строке и выводим на экран}

for i:=1 to 5 do
begin
  for j:=1 to 5 do
   if A[i,j]=min then s:=s+1;
  Writeln('В ',i,' строке минимальный элемент встечается ',s,' раз');   s:=0;
end;

READLN;
END.

3 votes Thanks 2

Answers & Comments

rasstavte koefficienty v uravneniyah himicheskoj reakcii 1 li2op2o5li3po4

dan celochislennyj massiv iz 30 elementov elementy massiva mogut prinimat proiz4491da46f81d8d0f960d313533496e9d 55365

sostavit programmu klassificiruyushuyu treugolniki po storonam esli zadany grad

dat obyasnenie sleduyushim ekonomicheskim terminam1politekonomiya monkretena2u

1zapolnite dvumernyj massiv po pravilu 1 1 1 1 2 2 2 2 3 3 3 3 4 4 4 4 2 dan

рекомендуемые вопросы

Helpful Links

Helpful Social