паскаль помогите поже оч надобно даю 20 баллов. Стас и Маша

Паскаль
помогите поже оч надо даю 20 баллов. Стас и Маша побывали в зоопарке. Папа спросил, когда малыши возвратились, сколько животных они видели. Маша запомнила, сколько тигров, львов, жирафов, крокодилов, слонов, страусов, павлинов, обезьян и попугаев в каждой клеточке. А Стас назвал число всех животных. Напишите программку, которая определяет, не ошибся ли Стас. Если не ошибся, то программа должна выводить +, иначе -.

Формат ввода:

a[1] тигры

a[2] львы

a[3] жирафы

a[4] крокодилы

a[5] слоны

a[6] страусы

a[7] павлины

a[8] мортышки

a[9] попугаи

sum число нареченное Стасом

Пример ввода:

5

9

2

2

1

8

10

10

10

57

Пример ввода:

6

3

2

0

2

12

8

23

15

100

Формат вывода:

+ Стас верно именовал количество всех животных

- Стас ошибся

Пример вывода:

+

Пример вывода:

-

Задать свой вопрос
1 ответ

var a: array [1..9] of integer;

i,s,sum:integer;

begin

for i:=1 to 9 do

begin

readln(a[i]);

s:=s+a[i];

end;

readln(sum);

if s=sum then writeln('+') else writeln('-');

end.


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт