Сколько цветов нужно приготовить артисту, если ему 55 лет?

@olchik1980 · Регистрация: 10.03.2013

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

Некий артист после своего выступления решил подарить зрителям, возраст которых соответствует его возрасту, цветы. Сколько цветов ему нужно приготовить, если ему 55 лет?

Pascal

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.

Комментарий модератора

Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода Pascal следует поместить этот код в теги: [РASCAL] - [/PASCAL]. Это можно сделать вручную или можно выделить код и на панели редактирования сообщения нажать кнопку: "PASCAL".

@ermolay · 14.03.2013, 22:25

А почему вы решили, что есть ошибка?
вот то же самое, добавил только оформление:

Pascal

var
  a: array[1..10] of real;
  i, c, n: integer;
  x: real;
 
begin
  c := 0;
  x := 55;
  for i := 1 to 8 do
  begin
    write('Введите возраст ',i,'-го зрителя: ');
    read(a[i]);
  end;
  for i := 1 to 8 do
    if (a[i]) = x then c := c + 1;
  writeln('Артист подарил ',c,' цветов');
end.

Добавлено через 2 минуты
x - не обязательно вещественного типа,
еще добавил возможность ввода количества зрителей:

Pascal

var
  a: array[1..10] of real;
  i, c, n, x: integer;
 
begin
  c := 0;
  x := 55;
  write('Сколько зрителей в зале? ');
  readln(n);
  for i := 1 to n do
  begin
    write('Введите возраст ',i,'-го зрителя: ');
    read(a[i]);
  end;
  for i := 1 to n do
    if (a[i]) = x then c := c + 1;
  writeln('Артист подарил ',c,' цветов');
end.

	14.03.2013, 22:25

Опции темы