Не могу найти пожалуйста найти ошибку

@Ermakovlexa · Регистрация: 17.05.2010

Студворк — интернет-сервис помощи студентам

Я ничего не понимаю в паскале, сделал по примеру..
Найдите ошибку плз, пишет unknow identifier
само задание:
Дан массив А, состоящий из 8 целых чисел (2;-4;3;1;5;-2;1;0).
Тогда в результате работы фрагмента программы:
S:=0;
for i=1 to 8 do
if A>0 then s:=s+1
переменная s примет значение, равное:
а)2
б)5
в)0
г)8
программа:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program z6;
uses crt;
var s,i: integer;
begin
clrscr;
readln (S,i);
s:=0;
For i:=1 to 8 do;
If A>0 then S:S+1;
If i:=1, A[1]=2, S:=0+1=1;
If i:=2, A[2]=-4, S:=1;
If i:=3. A[3]=3, S:=1;
If i:=4, A[4]=1, S:=1;
If i:=5, A[5]=5, S:=1;
If i:=6, A[6]=-2, S:=1;
If i:=7, A[7]=1, S:=1+1=2;
If i:=8, A[8]=0, S:=2+1=3;
writeln ('s:=',s);
end.

@yanyk1n · 17.05.2010, 20:47

Сообщение от Ermakovlexa

If i:=1, A[1]=2, S:=0+1=1;
If i:=2, A[2]=-4, S:=1;
If i:=3. A[3]=3, S:=1;
If i:=4, A[4]=1, S:=1;
If i:=5, A[5]=5, S:=1;
If i:=6, A[6]=-2, S:=1;
If i:=7, A[7]=1, S:=1+1=2;
If i:=8, A[8]=0, S:=2+1=3;
writeln ('s:=',s);
end.

Бред сивой кобылы. Вы вообще знаете, что такое условный оператор?

@Ermakovlexa · 17.05.2010, 20:49 **[ТС]**

нет, я же говорю, делал по примеру... наверное не удачному.

@lera8 · 17.05.2010, 20:50

Ну если честно совсем не удачному. У вас нормальное условие есть? Выложите его что ли

@Ermakovlexa · 17.05.2010, 20:52 **[ТС]**

Дан массив А, состоящий из 8 целых чисел (2;-4;3;1;5;-2;1;0).
Тогда в результате работы фрагмента программы:
S:=0;
for i=1 to 8 do
if A[i]>0 then s:=s+1
переменная s примет значение, равное:
а)2
б)5
в)0
г)8
вот сама задача полностью..

@yanyk1n · 17.05.2010, 20:53

Ermakovlexa, неужели так сложно посчитать количество положительных элементов? Ответ S = 5

@Ermakovlexa · 17.05.2010, 20:56 **[ТС]**

Нужна программа... числа посчитать не сложно

@lera8 · 17.05.2010, 21:02

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
const
a: array [1..8] of integer=(2,-4,3,1,5,-2,1,0);
var
i:integer;
s:byte;
begin
   s:=0;
  for i:=1 to 8  do
   if a[i] > 0 then
      s:=s+1;
   writeln('Сумма равна ',s);
end.

Добавлено через 13 секунд
Ну вот программа

@Ermakovlexa · 17.05.2010, 21:13 **[ТС]**

спасибо огромное Лера! Если не сложно напишите в асю 365145441

@lera8 · 17.05.2010, 21:16

Эм будем считать что мне сложно это сделать: аси у меня нет. Если вам нужно ещё решить задачи то создавайте новую тему.

@San4ezz · 17.05.2010, 21:23

unknown identifier - неизвестный идентификатор. В твоей программе использовался массив А, но не был объявлен в разделе var

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Ermakovlexa 0 / 0 / 0 Регистрация: 17.05.2010 Сообщений: 5
	17.05.2010, 20:49 [ТС]
	нет, я же говорю, делал по примеру... наверное не удачному. 0

@lera8 636 / 219 / 64 Регистрация: 03.11.2009 Сообщений: 488
	17.05.2010, 20:50
	Ну если честно совсем не удачному. У вас нормальное условие есть? Выложите его что ли 0

@Ermakovlexa 0 / 0 / 0 Регистрация: 17.05.2010 Сообщений: 5
	17.05.2010, 20:52 [ТС]
	Дан массив А, состоящий из 8 целых чисел (2;-4;3;1;5;-2;1;0). Тогда в результате работы фрагмента программы: S:=0; for i=1 to 8 do if A[i]>0 then s:=s+1 переменная s примет значение, равное: а)2 б)5 в)0 г)8 вот сама задача полностью.. 0

@yanyk1n 4342 / 1474 / 680 Регистрация: 12.03.2009 Сообщений: 5,310
	17.05.2010, 20:53
	Ermakovlexa, неужели так сложно посчитать количество положительных элементов? Ответ S = 5 0

@Ermakovlexa 0 / 0 / 0 Регистрация: 17.05.2010 Сообщений: 5
	17.05.2010, 20:56 [ТС]
	Нужна программа... числа посчитать не сложно 0

@Ermakovlexa 0 / 0 / 0 Регистрация: 17.05.2010 Сообщений: 5
	17.05.2010, 21:13 [ТС]
	спасибо огромное Лера! Если не сложно напишите в асю 365145441 0

@lera8 636 / 219 / 64 Регистрация: 03.11.2009 Сообщений: 488
	17.05.2010, 21:16
	Эм будем считать что мне сложно это сделать: аси у меня нет. Если вам нужно ещё решить задачи то создавайте новую тему. 0

@San4ezz 14 / 14 / 6 Регистрация: 14.05.2010 Сообщений: 36
	17.05.2010, 21:23
	unknown identifier - неизвестный идентификатор. В твоей программе использовался массив А, но не был объявлен в разделе var 0