М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
katyaadushkina3006
katyaadushkina3006
13.02.2023 02:26 •  Информатика

ребята как в двумерном массиве найти два минимальных элемента именно в первой строке. подскажите (Паскаль)

👇
Ответ:
sashaiseneev
sashaiseneev
13.02.2023

const

N = 10;

var

a: array [1..N, 1..N] of integer;

i, j, iMin1, iMin2 : integer;

begin

randomize;

for i := 1 to N do

   begin

   for j := 1 to N do

       begin

       A[i][j] := random(100) - 50;

       write(a[i][j], ' ');

       end;

   writeln;

   end;

iMin1 := 1;

iMin2 := 2;

for i := 3 to N do

   begin

   if a[1][i] < a[1][iMin1] then

       begin

       if a[1][iMin1] < a[1][iMin2] then

           iMin2 := iMin1;

       iMin1 := i;

       end

   else if a[1][i] < a[1][iMin2] then

       iMin2 := i;

   end;

   

writeln(a[1][iMin1]);

writeln(a[1][iMin2]);

end.

4,8(77 оценок)
Открыть все ответы
Ответ:
Romaniopatronys
Romaniopatronys
13.02.2023
Var
begin
readln(n);
if n=1 then begin writeln('1 месяц');writeln('кол-во дней');end;
if n=2 then begin writeln('2 месяц');writeln('кол-во дней');end;
if n=3 then begin writeln('3 месяц');writeln('кол-во дней');end;
if n=4 then begin writeln('4 месяц');writeln('кол-во дней');end;
if n=5 then begin writeln('5 месяц');writeln('кол-во дней');end;
if n=6 then begin writeln('6 месяц');writeln('кол-во дней');end;
if n=7 then begin writeln('7 месяц');writeln('кол-во дней');end;
if n=8 then begin writeln('8 месяц');writeln('кол-во дней');end;
И так до 12 раз...
Я не уверен что тебе нужен такой монстр...
В место к примеру 1 месяца пишешь январь...
4,6(17 оценок)
Ответ:
Яяяячччч
Яяяячччч
13.02.2023
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var s:=ReadLines('in.txt').ToArray;
  var n:=StrToInt(s[0]);
  var a:=s[1].ToWords.Select(e->StrToInt(e)).ToArray;
  var f:=OpenWrite('out.txt');
  Writeln(f,n,' - (кол-во чисел)');
  foreach var e in a do Write(f,e,' '); Writeln(f);
  Writeln(f,'Среднее значение четных ',
    a.Where(x->x.IsEven).Average);
  Writeln(f,'Среднее значение нечетных ',
    a.Where(x->x.IsOdd).Average);
  f.Close
end.

Файлы in.txt и out.txt находятся во вложении.

Содержимое файла out.txt:
15 - (кол-во чисел)
-22 49 33 47 -10 -1 20 -18 2 21 2 -25 21 -47 -36
Среднее значение четных -8.85714285714286
Среднее значение нечетных 12.25
4,7(15 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ