М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
bolt13222313
bolt13222313
30.01.2020 01:06 •  Информатика

Pascalabc составить программы

👇
Открыть все ответы
Ответ:
EvgeniyNou
EvgeniyNou
30.01.2020
Изучать информатику я начала в 5 классе. Это очень интересный предмет. Учитель объясняет нам как работать с программами , бережно относиться к компьютеру , правила безопасности. В первую очередь надо уметь работать за компьютером. Правильно сидеть, не садиться за компьютер с мокрыми руками, делать гимнастику и разминку, для спины и глаз. Возможно, когда нибудь я свяжу свою жизнь с информатикой. В наше время программист очень востребованная профессия. Им платят большие деньги. Но, очень ухудшается здоровье. От долгого времени проведенного за компьютером болит спина, искривляется позвоночник и садится зрение. Надо делать все в меру. И когда нибудь я стану гуру-информатики.  
4,8(61 оценок)
Ответ:
//Раз на первый вопрос господина Alviko Вы не ответили, буду считать что количество столбцов и строк уже задано.
//Pascal ABC.NET v3.1 сборка 1172

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
4,5(59 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ