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

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

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

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

Ответ
 
Опции темы
Старый 25.08.2010, 22: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 в 08:11.
solisoul вне форума   Ответить с цитированием
Старый 25.08.2010, 22:15   #2
DIgorevich
Погулять вышел
Участник клуба
 
Аватар для DIgorevich
 
Регистрация: 17.05.2010
Сообщений: 1,573
По умолчанию

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

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

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

Опции темы

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

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

Быстрый переход

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


12:48.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.