задачи на циклы в Паскале +блок схема - Форум
Вторник, 06.12.2016, 08:41
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » задачи на циклы в Паскале +блок схема
задачи на циклы в Паскале +блок схема
dasha371Дата: Четверг, 14.04.2011, 17:36 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
Помогите, пожалуйста, написать программу и блок-схему!!!!!
Даны целые числа а1,а2,....,а45.Получить число отрицательных членов последовательности а1,...,а35 и число нулевых членов всей последовательности а1,а2,...,а45.
 
zadachkiДата: Четверг, 14.04.2011, 17:49 | Сообщение # 2
Admin
Группа: Администраторы
Сообщений: 116
[ 9 ]
Статус: Offline
Вот код:
Code

program Project1;

uses
    SysUtils;
var
a: array [1..45] of integer;
i,otr,nol:integer;
begin
otr:=0;
nol:=0;
//случайно заполняем массив
for i:=1 to 45 do
   begin
   a[i]:=Random(10)-5;
   end;
//считаем отрицательные элементы
for i:=1 to 35 do
   begin
   if a[i]<0 then otr:=otr+1;
   end;
//считаем нулевые элементы
for i:=1 to 45 do
   begin
   if a[i]=0 then nol:=nol+1;
   end;
//выводим на экрамн полученную информацию
writeln('Massiv:');
for i:=1 to 45 do
   begin
   write(a[i],' ');
   end;
writeln;writeln;
writeln('Otricatelnih - ',otr);
write('Nulevih - ',nol);
readln;
end.

Блок схему сам, вот в помощь:
http://zadachki.ucoz.ru/index/0-7
http://zadachki.ucoz.ru/index/0-5

 
dasha371Дата: Пятница, 15.04.2011, 18:56 | Сообщение # 3
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
Спасибо большое!!!
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » задачи на циклы в Паскале +блок схема
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016