Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

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

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 25.08.2010, 21:13   #1
solisoul
Пользователь
 
Регистрация: 14.05.2010
Сообщений: 20
Восклицание нужна блок-схема к программе

Код:
program z4v17;
uses crt;
var
  a     : array[1..20] of shortint;
  i,n   : integer;
  c,r   : shortint;
begin
  clrscr;
  write('n=');
  read(n);
  writeln;
  write('c=');
  read(c);
  writeln;
  r:=1;
  for i:=1 to n do
    begin
      write('a',i,'=');
      read(a[i]);
      writeln;
      if a[i]>=c then
        r:=r*a[i]*a[i];
    end;
  writeln('r=',r:7);
  readln;
end.

Последний раз редактировалось artemavd; 26.08.2010 в 07:11.
solisoul вне форума Ответить с цитированием
Старый 25.08.2010, 21:15   #2
DIgorevich
Погулять вышел
Участник клуба
 
Аватар для DIgorevich
 
Регистрация: 17.05.2010
Сообщений: 1,573
По умолчанию

Ой, а как же "Помогите, пожалуйста, сделать...." или " Будьте добры, сделайте...." ?
Для оформления кода, используются тэги [СОDE][/СОDE]
Никогда не знаешь, где тебе повезет... (Фрай)
DIgorevich вне форума Ответить с цитированием
Старый 26.08.2010, 07:07   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,840
По умолчанию

нате нате нате
Изображения
Тип файла: jpg Нате.jpg (17.3 Кб, 148 просмотров)
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 26.08.2010, 07:44   #4
rrrFer
Санитар
Старожил
 
Аватар для rrrFer
 
Регистрация: 04.10.2008
Сообщений: 2,626
По умолчанию

http://programmersforum.ru/showthread.php?t=111215
rrrFer вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Блок-схема к программе BarracudaSSAT Помощь студентам 0 06.01.2010 20:08
Блок схема к программе NeGaTiVe Помощь студентам 2 02.11.2009 15:18
Нужна блок схема к готовой программе. BioVis Фриланс 8 11.05.2009 17:03
Блок-схема к программе OtimJ Помощь студентам 2 15.01.2009 19:29


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840