Записать программу линейного алгоритма,на языке исполнителя. (паскаль ABC) выполняющую сложение или вычитание, умножение, или деление с тремя не известными.
248
475
Ответы на вопрос:
Const n = 5; m = 5; var a: array[1..n,1..m] of integer; i,j,s: integer; begin //для теста заполним массив сл.числами for i: =1 to n do begin for j: =1 to m do begin a[i,j]: =random(21)-10; write(a[i,j]: 4); end; writeln; writeln; end; //сумма всех элементов массива for i: =1 to n do for j: =1 to m do s: =s+a[i,j]; writeln('сумма всех элементов массива: ',s); //сумма каждой строки for i: =1 to n do begin s: =0; for j: =1 to m do begin s: =s+a[i,j]; end; writeln ('строка: ',i,' сумма: ',s); end; end.
Популярно: Информатика
-
daniltarakano1322.02.2023 04:34
-
машад1403.11.2022 00:20
-
ilburyatovp0dn1508.01.2020 20:10
-
famina199816.04.2021 15:27
-
verarusu0221.12.2022 22:41
-
akakkakksksak31.12.2020 11:21
-
Niki191731.08.2022 23:48
-
лисичка2345621.09.2020 13:59
-
Лиза87889789705.09.2022 19:55
-
marinadoren30.04.2023 06:54