Var a:array[1..100]of integer;
i,sum,n:integer;
begin
writeln("vvedite kol-vo elementov");
read(n);
sum:=0;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
sum:=sum+a[i];
writeln("summa vseh elementov = ",sum);
end.

0 0

4 года назад

Сколько МБайт займет учебник,в котором 530 страниц,на каждой 90 строк по 70 символов?

эрагон

530 * 90 * 70 = 3339000
3339000 : 8 = 417375
3339000 : 417375 = 8
Ответ : 8

0 0

4 года назад

Помогите пожалуйста) Укажите пункт с правильным названием программы в Паскале Выберите один из 5 вариантов ответа: 1) programm 1

katfyk [170]

2 т.к. имя не может начинаться с чисел и содержать в себе знаки типа @.

0 0

4 года назад

Подумайте, какая книга содержит больше информации: которая имеет 200 страниц крупного текста или 100 страниц мелкого текста?

ivan13 [14]

100 страниц мелкого текста, потому что там больше нарисано

0 0

4 года назад