|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.01.2009, 19:59 | #1 |
Регистрация: 19.01.2009
Сообщений: 5
|
Одномерный массив
Дан массив Х(N). Вычислить сумму и количество элементов массива Х, при xi>0, N<=10.
program massiv; uses crt; var X:array [1..10] of real; I:integer; S:real; K:integer; begin clrscr; S:=0; K:=0; for I:=1 to N do begin Write('vvedite X(I)'); readln(X[I]); end; if X[I]>0 then begin S:=S+X[I]; K:=K+1; Writeln(I); writeln('S=',S:6:2); writeln('K=',K); readln; end; end. В задаче есть ошибка, считается только последнее введеное X а мне нужно сумма и кол-во всех элементов. |
22.01.2009, 20:02 | #2 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
Код:
вступлю в команду разработчиков ПО на Delphi
|
22.01.2009, 20:19 | #3 |
Форумчанин
Регистрация: 16.11.2008
Сообщений: 192
|
И еще, вот это:
Код:
Код:
|
22.01.2009, 22:24 | #4 |
Регистрация: 19.01.2009
Сообщений: 5
|
Бальшое СПАСИБО за всё.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
одномерный массив | Sjava | Помощь студентам | 7 | 02.11.2009 10:01 |
Одномерный массив. | Dmitrij | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 28.11.2008 19:54 |
Одномерный массив | Sirega | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 27.11.2008 21:21 |
Массив Одномерный | flait111 | Помощь студентам | 3 | 15.12.2007 14:08 |
Одномерный массив | SkyDreamer | Помощь студентам | 1 | 01.12.2007 21:22 |