где ошибка - Паскаль, Turbo Pascal, PascalABC.NET

rwrwrw · 24.10.2011, 15:14

program a1;
var n,a:array [1..n] of real;
i,s,v: integer;
BEGIN
writeln ('введите число а');
read (a);
writeln ('введите число n');
read (n);
s:=0;
for i:=1 to n do
begin
writeln ('введите число ['i,']=');
read (v);
if v>a then s:=s+v;
end;
writeln ('сумма=',s);
readln;
END.

rwrwrw · 24.10.2011, 15:24

решите пожалуйста

Vanta11a · 24.10.2011, 15:28

Код:

writeln ('введите число а');
read (a);
writeln ('введите число n');
read (n);

Массив приравниваете числу. Учите матчасть по элементам массива.

rwrwrw · 24.10.2011, 15:31

Дано n чисел. Найдите сумму чисел больщих заданного числа а.
Решите задачу чтоб были массивы. решите

rwrwrw · 24.10.2011, 15:31

Дано n чисел. Найдите сумму чисел больщих заданного числа а.
Решите задачу чтоб были массивы. решите

Vanta11a · 24.10.2011, 15:33

rwrwrw, 30 рублей мне на телефон - и будет программа.

rwrwrw · 24.10.2011, 15:34

реши бессплатно

Вадим Мошев · 24.10.2011, 15:35

Vanta11a
(нечестно конкурируете коллега

)

Или мне. Я решу.

Vanta11a · 24.10.2011, 15:35

Бесплатно решай сам. Задание скучное и тривиальное, личного интереса в его решении нет.

Цитата:

(нечестно конкурируете коллега )

Это в чем же? Не верю я, что у него ЯД или ВМ есть. ^^ А 30 рублей - это предельная цена затраченного на эту программу времени.

rwrwrw · 24.10.2011, 15:36

я не знаю как решать скажите

24.10.2011, 15:14	#1
rwrwrw Новичок Джуниор Регистрация: 24.10.2011 Сообщений: 11	где ошибка program a1; var n,a:array [1..n] of real; i,s,v: integer; BEGIN writeln ('введите число а'); read (a); writeln ('введите число n'); read (n); s:=0; for i:=1 to n do begin writeln ('введите число ['i,']='); read (v); if v>a then s:=s+v; end; writeln ('сумма=',s); readln; END.

24.10.2011, 15:28	#3
Vanta11a Lawful Evil Участник клуба Регистрация: 13.05.2008 Сообщений: 1,208	Код: `writeln ('введите число а'); read (a); writeln ('введите число n'); read (n);` Массив приравниваете числу. Учите матчасть по элементам массива. Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату. На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)

24.10.2011, 15:33	#6
Vanta11a Lawful Evil Участник клуба Регистрация: 13.05.2008 Сообщений: 1,208	rwrwrw, 30 рублей мне на телефон - и будет программа. Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату. На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Где ошибка	asnikifor	HTML и CSS	1	12.10.2011 16:20
где ошибка?	Degster	Паскаль, Turbo Pascal, PascalABC.NET	1	26.06.2011 11:33
написал программу, где то ошибка, не пойму где...	Kelevra91	Общие вопросы C/C++	5	17.01.2011 16:38
Где ошибка?	T-dayne	Помощь студентам	2	10.02.2010 16:52
Где ошибка:	Egik_net	Microsoft Office Access	6	26.10.2009 00:43

24.10.2011, 15:24	#2
rwrwrw Новичок Джуниор Регистрация: 24.10.2011 Сообщений: 11	решите пожалуйста

24.10.2011, 15:31	#4
rwrwrw Новичок Джуниор Регистрация: 24.10.2011 Сообщений: 11	Дано n чисел. Найдите сумму чисел больщих заданного числа а. Решите задачу чтоб были массивы. решите

24.10.2011, 15:34	#7
rwrwrw Новичок Джуниор Регистрация: 24.10.2011 Сообщений: 11	реши бессплатно

24.10.2011, 15:35	#8
Вадим Мошев Старожил Регистрация: 12.11.2010 Сообщений: 8,568	Vanta11a (нечестно конкурируете коллега ) Или мне. Я решу.

24.10.2011, 15:36	#10
rwrwrw Новичок Джуниор Регистрация: 24.10.2011 Сообщений: 11	я не знаю как решать скажите