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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 05.10.2016, 06:58   #1
Matvey Sadkov
Пользователь
 
Регистрация: 05.10.2016
Сообщений: 11
Злость Турбо паскаль

Помогите пожалуйста составить программу!!
1)Составить одномерный массив вещественных элементов в интревале от [1..32] и заполнить его рандомно.
2)В этом массиве найти количество положительных элементов.
3)Найти сумму элементов массива,расположенных после последнего элемента равного нулю.
Matvey Sadkov вне форума Ответить с цитированием
Старый 05.10.2016, 07:15   #2
Matvey Sadkov
Пользователь
 
Регистрация: 05.10.2016
Сообщений: 11
По умолчанию Помогите пожалуйста исправить программу!! 1)Составить одномерный массив вещественных элементов в интревале от [1..32] и заполнить его рандомно. 2)В этом массиве найти количество по

program massiv;
uses crt;
var i,c,k,sum:real;
a:array[1..32] of real;
begin
clrscr;
randomize;
for i:=1 to 32 do
begin
a[i]:=random(20)-10;
write(' ' , a[1]:1);
end;
k:=0;
for i:=1 to 32 do
begin
if a[i]>0 then k:=k+1;
end;
writeln;
writeln('k=',k);
c:=0;
for i:=1 downto 32 do
begin
if a[i]=0 then c:=i;
end;
sum:=0;
for c:=c+1 to 32 do
begin
sum:=sum+a[i];
end;
writeln('sum=',sum);
readln;
end.
Matvey Sadkov вне форума Ответить с цитированием
Старый 05.10.2016, 17:04   #3
Dvoishnik
Форумчанин
 
Регистрация: 12.02.2011
Сообщений: 808
По умолчанию

вы так разве не первый элемент равный нулю ищите??
Код:
for i:=1 downto 32 do
begin
if a[i]=0 then 
c:=i;
end;
последний можно так
Код:
for i:=1 to 32 do
begin
if a[i]=0 then 
c:=i;
end
или так
Код:
for i:=1 downto 32 do
begin
if a[i]=0 then 
begin
c:=i;
break;
end;
end
Терпение!Дежурный экстрасенс скоро свяжется с вами!
Dvoishnik вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как можно в Паскаль АВС (Паскаль-Турбо) вставлять в результаты печати программы графики, таблицы, схемы, набранные формулы, выраже IZOPGRAM Паскаль, Turbo Pascal, PascalABC.NET 0 11.06.2012 10:54
Турбо Паскаль mandarin-nk Паскаль, Turbo Pascal, PascalABC.NET 1 25.02.2011 17:41
Турбо Паскаль. Лимон Помощь студентам 6 16.11.2010 09:01
Турбо паскаль Viktoria90 Помощь студентам 1 29.12.2009 23:56