Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.06.2010, 14:59   #1
Pocker
Новичок
Джуниор
 
Регистрация: 24.06.2010
Сообщений: 2
Радость Две задачи на Pascal'e

1. С клавиатуры вводится 5 чисел. Найти их среднее арифметическое
2. Заполнить двухмерный массив случайными числами и найти сумму элементов на рабочей диагонали.
В pascale
Pocker вне форума Ответить с цитированием
Старый 26.06.2010, 15:20   #2
_-Re@l-_
C++, Java
Старожил
 
Аватар для _-Re@l-_
 
Регистрация: 10.04.2010
Сообщений: 2,665
По умолчанию

Цитата:
1. С клавиатуры вводится 5 чисел. Найти их среднее арифметическое
Неужели всё так плохо...
Код:
var a,b,c,d,e:real;
     sr:real;
begin
       readln(a,b,c,d,e);
       sr:=(a+b+c+d+e)/5;
       write('Среднее арифметическое = ',sr:5:2);
end.
Цитата:
2. Заполнить двухмерный массив случайными числами и найти сумму элементов на рабочей диагонали.
В pascale
Код:
var A:array[1..5,1..5] of integer;
     s:integer;
     i,j:integer;
begin
       randomize;
       s:=0;
       for i:=1 to 5 do
       begin
       for j:=1 to 5 do
       begin
       A[i,j]:=random(100);
       if i = j then s:=s+A[i,j];
       end;
       end;
       for i:=1 to 5 do
       begin
              for j:=1 to 5 do
              write(A[i,j],' ');
              writeln;
       end;
       write('summa = ',s);
end.
_-Re@l-_ вне форума Ответить с цитированием
Старый 26.06.2010, 15:20   #3
ROMA2PVT
ТАМБОВСКИЙ ВОЛК.
Участник клуба
 
Аватар для ROMA2PVT
 
Регистрация: 16.03.2010
Сообщений: 1,354
По умолчанию

Цитата:
рабочей
<<offtop>>
Хм..О такой диагонали не слышал.
にんじゃ
ROMA2PVT вне форума Ответить с цитированием
Старый 26.06.2010, 15:20   #4
Serj0987
Пользователь
 
Регистрация: 18.04.2009
Сообщений: 44
По умолчанию

Помогу за 100 рублей, пиши в аську.
Программы на заказ Delphi, Pascal, PHP.
ICQ:636-494-826
E-mail:serj0987@yandex.ru.
Serj0987 вне форума Ответить с цитированием
Старый 26.06.2010, 15:21   #5
_-Re@l-_
C++, Java
Старожил
 
Аватар для _-Re@l-_
 
Регистрация: 10.04.2010
Сообщений: 2,665
По умолчанию

Цитата:
Хм..О такой диагонали не слышал.
Рабочая = главная
_-Re@l-_ вне форума Ответить с цитированием
Старый 26.06.2010, 15:25   #6
ROMA2PVT
ТАМБОВСКИЙ ВОЛК.
Участник клуба
 
Аватар для ROMA2PVT
 
Регистрация: 16.03.2010
Сообщений: 1,354
По умолчанию

Цитата:
Рабочая = главная
<<offtop>>
А побочная это нерабочая наверное.
Цитата:
Помогу за 100 рублей, пиши в аську.
За них 20 р. и то стрёмно брать.
にんじゃ
ROMA2PVT вне форума Ответить с цитированием
Старый 26.06.2010, 15:26   #7
_-Re@l-_
C++, Java
Старожил
 
Аватар для _-Re@l-_
 
Регистрация: 10.04.2010
Сообщений: 2,665
По умолчанию

Как ты догадался?
(как тегом оффтоп пользоваться?)
_-Re@l-_ вне форума Ответить с цитированием
Старый 26.06.2010, 15:35   #8
Serj0987
Пользователь
 
Регистрация: 18.04.2009
Сообщений: 44
По умолчанию

Цитата:
Сообщение от ROMA2PVT Посмотреть сообщение
<<offtop>>
А побочная это нерабочая наверное.

За них 20 р. и то стрёмно брать.
А кодить бесплатно влом
Программы на заказ Delphi, Pascal, PHP.
ICQ:636-494-826
E-mail:serj0987@yandex.ru.
Serj0987 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Две задачи на массивы. Nadi Помощь студентам 4 25.04.2011 16:58
Две Задачи Алена Захарова Помощь студентам 13 13.08.2009 17:03
помогите пожалуйста решить задачи в PASCAL'e. bear12345 Помощь студентам 6 04.03.2009 20:54
две задачи!!! LOVELY Помощь студентам 2 30.01.2009 01:35
две задачи на С++ ELL Помощь студентам 0 01.06.2008 01:28