Skip to Content

Пожалуйста!!!Помогите решить задачи в паскаль!

2 всего / 0 новых
Последнее
kazakolia
Молчун
kazakolia аватар
Сообщения: 1
Бонусы: 0
Блог: читать!
Пожалуйста!!!Помогите решить задачи в паскаль!

Сгенерировать двумерный числовой массив размера n x n. Найти наименьший элемент в первой строке массива.

NicromanseR
Возмутитель спокойствия
NicromanseR аватар
1000Гуру
Сообщения: 1270
Бонусы: 273
Пол: Мужской
Блог: читать!
Исходное сообщение от 04/17/2014 - 16:03

a : array [1..n, 1..n] of integer;
i, j, min, jmin : integer;
begin
min := 1000;
randomize;
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i,j] := random(100);
write(a[i,j]:4);
if (i = 1) and (a[i,j] < min) then
begin
min := a[i,j];
jmin := j
end
end;
writeln
end;
writeln('наименьщий в 1 строке: a[1,', jmin, '] = ', min);
readln
end.

Дополнение #1

(С)google.ru

RSS-материал