Var f:text; ma:array[1..n,1..m] of integer; i,j,s:integer; begin assign(f,'matrix.txt'); reset(f); for i:=1 to n do begin for j:=1 to m do begin read(f,ma[i,j]); s:=s+ma[i,j]; end; end; close(f); for i:=1 to n do begin writeln; for j:=1 to m do write(ma[i,j]:4); end; writeln; write(s); end.
1. отметьте все правильно записанные формулы. =2*a3*b2 =a1+сумм(b1: c3) 2. отметьте все правильные адреса ячеек и диапазонов электронной таблицы. a5: b8 c7: b16 3. сколько ячеек входит в диапазон a7: b12? ответ: 12 4. в электронной таблице выделены 20 ячеек, расположенных в столбце h, начиная со строки 9. запишите адрес выделенного диапазона. ответ: h9: h28 5. в электронной таблице выделен диапазон из 8 ячеек, расположенный в столбцах a и b. правый нижний угол диапазона находится в ячейке b8. запишите адрес диапазона. ответ: a5: b8 6. в электронной таблице выделен диапазон из 9 ячеек, расположенный в столбцах c, d и e. правый нижний угол диапазона находится в ячейке e8. запишите адрес диапазона. ответ: c6: e8 7. какую формулу нужно записать в ячейку b5, чтобы вычислить значение x по формуле, на рисунке? ответ: 8. запишите адрес выделенного диапазона. ответ: 9. запишите адрес выделенного диапазона. ответ: 10. замените формулу, используя один вызов функции сумм:=a3+a4+a5+b3+b4+b5 ответ: =сумм(a3: b5) 11. замените формулу, используя два вызова функции сумм:=a3+a4+a5+b7+b8+b9+c7+c8+c9 ответ: =сумм(a3: c9)
Svetlana1287
28.05.2020
Завдання Запиши послідовність номерів карток, які задають порядок:Варіант 1а) завершення роботи за комп'ютеромб) запуску програми на виконання Варіант 2а) підготовки комп’ютера до роботиб) коректного завершення роботи з програмою Завдання 3. Дії з о б’єктам и Робочого столуУ комп’ютерному класі за комп’ютерами з різними номерами сидять Світлана,Марина,Роман та Сергій. Відомо, що:- Світлана виконала затримку над деяким об’єктом:- Марина один раз клацнула лівою кнопкою миші;- Роман не встиг нічого зробити;- Сергій виконав дві дії з мишею.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Написать программу в паскаль! нахождение суммы чисел в матрице, ввод чисел осуществить из файла matrix.txt вывод на экран.
Const
n=3; //количество строк
m=4; //количество столбцов
Var
f:text;
ma:array[1..n,1..m] of integer;
i,j,s:integer;
begin
assign(f,'matrix.txt');
reset(f);
for i:=1 to n do
begin
for j:=1 to m do
begin
read(f,ma[i,j]);
s:=s+ma[i,j];
end;
end;
close(f);
for i:=1 to n do
begin
writeln;
for j:=1 to m do
write(ma[i,j]:4);
end;
writeln;
write(s);
end.
matrix.txt:
1 2 3 4
4 5 6 4
7 8 9 4
Вывод программы:
1 2 3 4
4 5 6 4
7 8 9 4
57