двумерный массив Некий артист после своего выступления решил подарить зрителям

[olchik1980]

Некий артист после своего выступления решил подарить зрителям, возраст которых соответствует его возрасту, цветы. Сколько цветов ему нужно приготовить, если ему 55 лет?
вх: 2 3 45 55 56 67 65 34
вых: 1

[Sciv]

Где Ваши наработки? Задача-то детская...

[Mad_Cat]

а в каком месте массив то

двумерный

?

c:=n;
for i:=1 to n do
if a[i]<>x then dec(c);
writeln(c);

[olchik1980]

var a:array[1..10] of real;
i,c,n:integer;
x:real;
begin
c:=0;
x:=55;
for i:=1 to 8 do read (a[i]);
for i:=1 to 8 do
if (a[i])=x then c:=c+1;
writeln(c);
end.

в чём ошибка этой программы не пойму

[Sciv]

var a:array[1..10] of real;
i,c,n:integer;
x:integer;
begin
c:=0;
x:=55;
for i:=1 to 8 do read (a[i]);
for i:=1 to 8 do
if (a[i]=x) then c:=c+1;
writeln(c);
end.

Исправил и выделил красным, что именно. Со скобками - это не совсем ошибка, скорее, неточность. А вот сравнение между интегер и реал не пройдет, так как это разные типы данных.

Ну и с двумя циклами в программе нет смысла заморачиваться. Лучше сразу считать:

for i:=1 to 8 do begin
  readLn(a[i]);
  if a[i]=x then inc(c);
end;

[s-andriano]

1. Что такое "соответствует" в условии задачи? Это "равно", "не равно", "больше", "меньше", "равно сумме цифр" или еще какой из многих тысяч вариантов?
2. Задачу в том виде, как она сформулирована, решить невозможно, т.к. неизвестно, как узнать количество цветов, которое надо подарить каждому из зрителей.

[Sciv]

1. Что такое "соответствует" в условии задачи? Это "равно", "не равно", "больше", "меньше", "равно сумме цифр" или еще какой из многих тысяч вариантов?
2. Задачу в том виде, как она сформулирована, решить невозможно, т.к. неизвестно, как узнать количество цветов, которое надо подарить каждому из зрителей.

Кстати, да, дебильное задание с точки зрения логики.