const
n = 5;
m = 7;
var
a: array [1..n, 1..m] of integer;
i, j, min, s: integer;
begin
randomize;
writeln('array:');
for i := 1 to n do begin
for j := 1 to m do begin
a[i, j] := random(100);
write(a[i, j]:4);
end;
writeln;
end;
for i := 1 to n do begin
min := a[i, 1];
for j := 2 to m do if min > a[i, j] then min := a[i, j];
inc(s, min);
end;
writeln('sum: ', s);
end.
Другие языки программирования и технологии
Помогите решить задачу по программированию, пожалуйста. Найти сумму наименьших значений элементов строк. (вложенные циклы)
summ = 0;
for int i = 0; i < n; i++ )
{
min = array[ i ][ 0 ];
for( int j = 1; j < m; j++ )
{
if( min > array[ i ][ j ] ) min = array[ i ][ j ];
}
summ += min;
}
for int i = 0; i < n; i++ )
{
min = array[ i ][ 0 ];
for( int j = 1; j < m; j++ )
{
if( min > array[ i ][ j ] ) min = array[ i ][ j ];
}
summ += min;
}
что имеют в виду "наименьшие значения элементов строк"? метрица целых, вещественных, или это текст
на какой программе то?
Похожие вопросы
- Помогите решить задачу на языке Паскаль. Найти сумму всех чётных чисел от 1 до 1000 (задачу решить 2 способами)
- Помогите решить задачу по программированию. Дано четырёхзначное число. Найти: а) сумму его цифр; б) произведение его циф
- Помогите решить задачу на программирование!
- Помогите решить) Задачи по программированию в Паскале
- помогите решить задачу по программированию
- Помогите решить задачи на Си! Пожалуйста!!!
- Помогите решить задачи по программированию!!!
- Помогите решить задачу по программированию! Язык - Visual Basic.
- помогите решить задачи по программированию в ПАСКАЛЕ!!!
- Помогите решить задачу по Программированию в паскале.