Регистрация
kiradimitrova
26.09.2020 09:41
Информатика
Есть ответ 👍

Напишите мне тема
Учёные и философы древней Греции
Задание 1
Напишите мне про
Кем они были и чем занимались
Геродота
Аристотеля
Пифагора
Задание 2
Культура древней греции
Задание 3
Напишите список мифических греческих богов и за что они отвечали​

216
257
Посмотреть ответы 1

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

fhnkyc
fhnkyc
4,5(79 оценок)
//pascal abc.net v3.0 сборка 1111 const   n=10; var   ma: array[1..n,1..n] of integer;   min,mini,minj,i,j: integer; begin min: =2147483647;   randomize;   writeln('matrix: ');     for i: =1 to n do     begin;     writeln;     for j: =1 to n do       begin;       ma[i,j]: =random(300);       write(ma[i,j]: 4);       if min> ma[i,j] then         begin;         min: =ma[i,j];         mini: =i;         minj: =j;         end;       end;     end;   writeln;   write('строка: ',mini,' столбец: ',minj); end.

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