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

0 голосов
23 просмотров

Паскаль помогите поже оч надо даю 20 баллов. Стас и Маша побывали в зоопарке. Папа спросил, когда дети вернулись, сколько животных они видели. Маша запомнила, сколько тигров, львов, жирафов, крокодилов, слонов, страусов, павлинов, обезьян и попугаев в каждой клетке. А Стас назвал число всех животных. Напишите программу, которая определяет, не ошибся ли Стас. Если не ошибся, то программа должна выводить +, иначе -.Формат ввода:a[1] – тигрыa[2] – львыa[3] – жирафыa[4] – крокодилыa[5] – слоныa[6] – страусыa[7] – павлиныa[8] – обезьяныa[9] – попугаиsum – число названное СтасомПример ввода:59221810101057Пример ввода:632021282315100Формат вывода:+ Стас правильно назвал количество всех животных- Стас ошибся Пример вывода:+ Пример вывода:-


Информатика (12 баллов) | 23 просмотров
Дан 1 ответ
0 голосов

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.


(102 баллов)