|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.10.2016, 06:58 | #1 |
Пользователь
Регистрация: 05.10.2016
Сообщений: 11
|
Турбо паскаль
Помогите пожалуйста составить программу!!
1)Составить одномерный массив вещественных элементов в интревале от [1..32] и заполнить его рандомно. 2)В этом массиве найти количество положительных элементов. 3)Найти сумму элементов массива,расположенных после последнего элемента равного нулю. |
05.10.2016, 07:15 | #2 |
Пользователь
Регистрация: 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. |
05.10.2016, 17:04 | #3 |
Форумчанин
Регистрация: 12.02.2011
Сообщений: 808
|
вы так разве не первый элемент равный нулю ищите??
Код:
Код:
Код:
Терпение!Дежурный экстрасенс скоро свяжется с вами!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как можно в Паскаль АВС (Паскаль-Турбо) вставлять в результаты печати программы графики, таблицы, схемы, набранные формулы, выраже | 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 |