uses crt;
const n=45;
var a,ko,kn,i:integer;
begin
clrscr;
writeln('Введите ',n,' целых чисел:');
ko:=0;
kn:=0;
for i:=1 to n do
 begin
  write('a=',i:2);
  readln(a);
  if(a<0)and(i<=35)then ko:=ko+1;
  if a=0 then kn:=kn+1;
 end;
writeln('Количество отрицательных в первых 35=',ko);
write('Количество нолей всей последовательности=',kn);
readln
end.
 
и вторая 
 
uses crt;
const n=45;
var a,ko,kn,i:integer;
begin
clrscr;
writeln('Введите ',n,' целых чисел:');
ko:=0;
kn:=0;
for i:=1 to n do
 begin
  write('a=',i:2);
  readln(a);
  if(a<0)and(i<=35)then ko:=ko+1;
  if a=0 then kn:=kn+1;
 end;
writeln('Количество отрицательных в первых 35=',ko);
write('Количество нолей всей последовательности=',kn);
readln
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

03.05.2010, 13:23

Ответы с готовыми решениями:

Составить блок схемы!
1)Даны объёмы и массы двух тел из разных материалов. Материал, какого из тел имеет большую...

Составить блок-схемы
Составьте, пожалуйста, кто сколько может блок-схемы к следующим программам. Понимаю, что это очень...

Составить блок-схемы:
1 программа: разработать квадратную матрицу, вычислить сумму членов матрицы вышеглавной диагонали....

составить блок-схемы
составить блок-схемы program str4; uses crt; var s:string; i,c,max:integer; begin ...

	03.05.2010, 13:23

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

03.05.2010, 13:23

Помогаю со студенческими работами здесь

Нужно составить блок-схемы.
1.Рассматрива строку как массив символов, выполнить следующее. в тексте длины не более 255 знаков,...

Как Составить блок схемы по коду
Помогите пожалуйста. Вообще не понимаю как их рисовать. Компа под рукой нету. воспользоватся...

Составить блок-схемы по готовой программе
program zad; uses crt; type m=array of integer; procedure vvod; var mas:array of...

Написать программу и составить блок схемы
Даны внешние и внутренние радиусы двух колец, центры которых находятся в начале координат. Даны...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх