Что нужно изменить во 2-ом решении по сравнению с 1-ым решением?
№1 Дан двумерный массив. Определить сумму элементов второго столбца массива, больших 10.
Решение №1.
program sum;
var a: array[1 ... 10, 1 ... 10] of integer;
i, j, s: integer;
begin
s : = 0;
for i : = 1 to 10 do
begin
for j : = 1 to 10 do
begin
a[i, j] : = random (20) + 1;
write (a[i, j]:3) ;
if (j = 2) and (a[i, j] > 10) then
s : = s + a[i, j];
end;
writeln;
end;
writeln ('Сумма элементов 2 го столбца больших 10 равна', s) ;
readln
end.
№2 Дан двумерный массив. Определить сумму элементов заданного столбца массива, больших 10.
Решение №2.
?
Ответы (1)
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Что нужно изменить во 2-ом решении по сравнению с 1-ым решением? №1 Дан двумерный массив. Определить сумму элементов второго столбца ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;
Ответы (1)
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Что не так? (процедура обязательна) procedure random (k:integer) ; var a:array[1 ... 100] of integer; var l:integer; begin for l:=1 to k do begin a[l]:=random (100) ; writeln (a[l]) ; end; end; var v:integer; begin write ('Сколько будет чисел?
Ответы (2)
Program pr_1; var x, y, sum, umn: integer; begin write ('x=') ; readln (x) ; write ('y=') ; readln (y) ; sum:=x+y; umn:=x*y; writeln ('sum=', sum) ; writeln ('umn=', umn) ; readln; end. x=25 y=36 sum=? umn=?
Ответы (1)
Ошибка времени выполнения: Индекс находился вне границ массива ... чтто не так? const n=30; var i, j, p, q:integer; c:array[1 ... n, 1 ... n+1] of integer; a:array[1 ... n+1] of integer; b:array[1 ...
Ответы (1)
Помогите с ответом
2, 4 диметилгексен3 структурная формула улеродный скелет цикл
Нет ответа
Какая масса алюминия прореагирует с хлоридной кислотой, если при этом выделится пять моль водорода?
Нет ответа
вывести формулу расчёта для решения задач типа: сколько граммов соли нужно добавить к А г а %-го раствора этой соли для получения в %-го раствора?
Нет ответа
Уравнения реакций взаимодействия пропена с водородом, бромом, бромоводородом
Нет ответа
При сгорании в хлоре 224 г порошка некоторого металла образовалось 650 г хлорида в котором данный метал трехвалентен. о каком металле идет речь
Нет ответа