Другие языки программирования и технологии
Решите пожалуйста, кто решит, дам 20 баллов
Дан квадратный массив целых положительных чисел 5 х 5. Опишите на русском языке или на одном из языков программирования алгоритм вычисления суммы элементов столбца, в которой расположен элемент с минимальным значением. Вывести значение суммы на печать. Предполагается, что такой элемент единственный.
> ТАК?
Нет. Так:
var
a, i, j, im, jm, s: integer;
m: array[1..5, 1..5] of integer;
begin
randomize;
writeln('array:');
for i := 1 to 5 do begin
for j := 1 to 5 do begin
m[i, j] := random(100);
write(m[i, j]:3);
end;
writeln;
end;
im := 1;
jm := 1;
for i := 1 to 5 do
for j := 1 to 5 do
if m[i, j] < m[im, jm] then begin
im := i;
jm := j;
end;
writeln('min: m[', im, ', ', jm, '] = ', m[im, jm]);
for i := 1 to 5 do inc(s, m[i, jm]);
writeln('sum: ', s);
end.
Нет. Так:
var
a, i, j, im, jm, s: integer;
m: array[1..5, 1..5] of integer;
begin
randomize;
writeln('array:');
for i := 1 to 5 do begin
for j := 1 to 5 do begin
m[i, j] := random(100);
write(m[i, j]:3);
end;
writeln;
end;
im := 1;
jm := 1;
for i := 1 to 5 do
for j := 1 to 5 do
if m[i, j] < m[im, jm] then begin
im := i;
jm := j;
end;
writeln('min: m[', im, ', ', jm, '] = ', m[im, jm]);
for i := 1 to 5 do inc(s, m[i, jm]);
writeln('sum: ', s);
end.
Во первых, что мы с балами делать будем? За них ничего не купишь!
А во вторых, максимум за лучший ответ, можно получить 10 балов, но не 20!
А во вторых, максимум за лучший ответ, можно получить 10 балов, но не 20!
)))))))))))Обманывать не хорошо)
Идет сравнение каждого члена массива с помощью двух переменных с каждым сравнением записывается (присваивается какой-нибудь другой переменной) номер столбца с самым маленьким значением. Считается сумма всех членов столбца под номером присвоенной переменной, во время сравнения. Сумма, присваивается переменной, вывод переменной.
Пишите на почту или в асю 586178755
Похожие вопросы
- решите плиз задачу на Турбо Паскале дам 10 баллов
- Срочно помогите..всем 20 баллов,огромное спасибо за ответ.
- Кто знает Delphi. Дам 10 баллов!!
- народ кто поможет дам 10 баллов
- я по поводу Visual Basic за нормальный ответ дам 10 баллов
- Кто хорошо разбирается в кампах помогиде дам 10 баллов
- Тем кто хорошо знает HTML(Внутри) За хорошиий ответ дам 10 баллов
- Помогите мне пожалуйста, решить проблему большую, по...
- помогите решить задачу на паскале: напечатать "столбиком" значения sin2, sin3, ..sin 20.
- Помогите пожалуйста решить на языке C++