Использовать подпрограммы (ввода, вывода, обрабатывающейчасти). Дан массив целых чисел А[M,N], гдеM,N меньше =10. В каждой строке массива выбратьминимальный и найти их произведение.предмет (программирование)на Pascal ABC Задачи...
Использовать
подпрограммы (ввода, вывода, обрабатывающей
части). Дан массив целых чисел А[M,N], где
M,N<=10. В каждой строке массива выбрать
минимальный и найти их произведение.
предмет (программирование)
на Pascal ABC Задачи необходимо выполнить с использованием процедур и функций.
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
var a : array [1..10, 1..10] of integer ;
i,j,n,m:byte;
min,s:integer;
begin
s:=1;
randomize;
writeln('Введи кол-во строк(<10)');
readln(n);
writeln('Введи кол-во столбцов(<10)');
readln(m);
for j:=1 to m do
for i:=1 to n do begin
a[i,j]:=random(100);
gotoxy((i-1)*5+1,j+5);
writeln(a[i,j]);
end;
for i:=1 to m do begin
min:=a[1,i];
for j:=1 to n do if a[j,i]
Не нашли ответ?
Похожие вопросы