Предмет: Информатика, автор: ccv224548

помогите дописать программу

Приложения:

ccv224548: да

Ответы

Автор ответа: asphyxik

1

var b: array [1..100] of integer;

i,a,s:integer;

begin

read(a);

for i:=1 to a do

read(b[i]);

for i:=1 to 100 do begin

s:=s+b[i]

end;

writeln(s);

end.

Приложения:

Предыдущий вопрос

Следующий вопрос

Интересные вопросы

Предмет: Химия, автор: kewone

Fe(NO₃)₃+KOH→
Решите ионное уравнение

2 года назад

Предмет: Алгебра, автор: Danny55

Log по основанию 4(3+0,1x)=-1

2 года назад

Предмет: Математика, автор: Fidan2002b

Решите уравнение:
а)2х+5=7;
б)4*(3х+7)=40
в)87,4:х=23
г)у:17=15,3

2 года назад

Предмет: Математика, автор: SivkaBurka2006

Токарь обточил 60 деталей, и ему до конца смены осталось выточить 20 % задания. Сколько деталей должен обточить токарь за смену ? Помогите!!!!

8 лет назад

Предмет: Физика, автор: Соколовська

Кінетична енергія лижника масою 80 кг становить 4 КДж. Визначити його швидкісь руху
допоможіть!

8 лет назад