Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Офтопик > Работа > Задания за деньги
Перезагрузить страницу Помогите сделать задачу в Pascal ABC
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Marinka-mandarinka Marinka-mandarinka вне форума
Новичок
 
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 06.03.2014
По умолчанию Помогите сделать задачу в Pascal ABC - 06.03.2014, 17:26

Вычислить сумму диагональных элементов матрицы, количество элементов матрицы меньших 3.
Ответить с цитированием
  (#2 (permalink)) Старый
id_slk id_slk вне форума
Новичок
 
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 07.03.2014
По умолчанию 07.03.2014, 19:39

program sumdiag;
type mas=array[1..3,1..3] of integer;
var a:mas;
i,j,n: integer;
sum:integer;
begin
write('Введите коэффициент квадратной матрицы<3');
readln(n);
//заполнение матрицы
write(' Ведите матрицу: количество элементов=',n*n);
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);

//сумма диагональных элементов
sum:=0;
for i:=1 to n do
for j:=1 to n do
if i=j then
sum=sum+a[i,j];

end.
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите решить задачу "Pascal ABC" Alexander1998 Pascal 0 17.11.2012 16:27
Пожалуйста напишите задачу на языке pascal . Викуша Вопросы начинающих программистов 0 14.11.2012 22:26
Помогите решить задачу на pascal Sakhalin Pascal 0 27.04.2012 13:17
Помогите сделать задачу. Работа с динамическими списками SnegovikON Pascal 0 26.12.2011 16:56
Помогите сделать задачу!!)))) Пллииииззз))) Славка Pascal 2 04.11.2011 22:46
Помогите сделать задачу! Богдан Онопк Pascal 2 31.10.2011 18:25
Помогите решить задачу по физике на Pascal Mult Pascal 0 17.12.2010 21:06
Помогите сделать задачу на языке GPSS ONYXLEXA Задания за деньги 1 28.04.2010 22:03
Помогите решить задачу в PASCAL Ден810 Pascal 5 19.05.2008 16:11
Срочно нужно сделать 2 проги на Turbo Pascal gо работе с текстом levalm Pascal 2 12.05.2007 21:32
Как решить задачу методами Pascal mutAnt Pascal 2 29.10.2004 15:35
Создать задачу с координатами в Pascal Anonymous Вопросы начинающих программистов 10 22.11.2003 15:48



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов