Регистрация
sonyafeldman
29.06.2022 04:46
Информатика
Есть ответ 👍

Угадай, какое свойство мы сделали секретным, и запиши верный ответ.

Заполни таблицу до конца, определи, какое свойство мы использовали.

ОТВЕТИТЬ

Кот - 3;

Лягушка - 7;

Крыса - 5;

Крокодил -

195
422
Посмотреть ответы 1

Ответы на вопрос:

Зефирка170504
Зефирка170504
4,5(78 оценок)
Var     i,j,s,min,im: integer;     a: array[1..7,1..5]of integer; begin for i: =1 to 7 do   begin   for j: =1 to 5 do     begin     a[i,j]: =random(-9,9);     write(a[i,j]: 4);     end;   writeln;   end; writeln('сумма отрицательных по столбцам: '); for j: =1 to 5 do   begin   for i: =1 to 7 do     if a[i,j]< 0 then s: =s+a[i,j];   write(s: 4);   s: =0;   end; min: =a[1,1]; for j: =1 to 5 do     begin     if (a[1,j]< min) then       begin       min: =a[1,j];       im: =j;       end;     end; writeln; writeln('min=',min,'; (1,',im,')'); end.

Популярно: Информатика