Регистрация
OBOShh
01.02.2023 11:35
Информатика
Есть ответ 👍

Постройте таблицу,отображающую земельные ресурсы зарубежных стран. Часть площади Европы, занятая лесами, составляет 32,8%. Часть площади Северной Америки, занятая пашнями и плантациями, составляет 12,8% . Часть площади Азии, занятая пастбищами, составляет 24%. Часть площади Африки, занятая пашнями и плантациями, составляет 6,2%. Часть площади Азии, занятая лесами, составляет 21% . Часть площади Северной Америки, занятая пастбищами, составляет 16,8% . Часть площади Австралии и Океании, занятая пашнями и плантациями, составляет 5,7%. Часть площади Северной Америки, занятая лесами, составляет 30,9%. Часть площади Австралии и Океании, занятая пастбищами, составляет 54,6% . Часть площади Южной Америки, занятая лесами, составляет 53%. Часть площади Европы, занятая пастбищами, составляет 18,2%. Часть площади Австралии и Океании, занятая лесами, составляет 18,1%. Часть площади Южной Америки, занятая пашнями и плантациями, составляет 7,8% . Часть площади Африки, занятая пастбищами, составляет 26,2%. Часть площади Южной Америки, занятая пастбищами, составляет 26%. Часть площади Африки, занятая лесами, составляет 23,2%. Часть площади Азии, занятая пашнями и плантациями, составляет 17%. Часть площади Европы, занятая пашнями и плантациями, составляет 29,6% . Часть площади Южной Америки, занятая прочими землями, составляет 13,2% . Часть площади Австралии и Океании, занятая прочими землями, составляет 21,6% . Часть площади Европы, занятая прочими землями, составляет 19,4% . Часть площади Северной Америки, занятая прочими землями, составляет 39,5%. Часть площади Африки, занятая прочими землями, составляет 44,4%. Часть площади Азии, занятая прочими землями, составляет 38% .

254
327
Посмотреть ответы 1

Ответы на вопрос:

kolya0125
kolya0125
4,4(7 оценок)

Program p1;

Var a, i, n, k,z: integer;

Begin

Write('Введите количество чисел: ');

readln(n);

k:=0;

z:=0;

For i:=1 to n do begin

readln (a);

if (a > 0) then k:=k + a;

z:=z + 1;

end;

Writeln('Сумма положительных чисел = ',k);

Writeln('Среднее арифметическое чисел = ',k/z);

End.

Популярно: Информатика