Question

Пожалуйста!Помогите!Или не кто не разбирается в Информатике?Даю 30 баллов!Плюс хорошую оценку ответа!Ответ обозначу как лучший!.

Задание 1. Составить программу для нахождения среднего балла по контрольной работе 10 человек
Язык программирования-Паскаль

Задание 2.Дано целое число,в диапазоне 1-999.Выведите строку- описание этого числа в виде >, >

Answer 1

Ответ:

1.

program z1;

var o:array[1..10] of integer;

i,s:integer;

begin

s:=0;

write('Массив: ');

for i:= 1 to 10 do

begin

o[i]:=random (5) + 1;

write(o[i]:3);

s:=s+o[i]

end;

writeln;

writeln('Средний балл: ',s/10)

end.

Объяснение:

1. Оценки от 1 до 5, при использовании составного оператора задаем элементы массива(random), выводим их на экран (write) и считаем сумму всех оценок (s). Средний балл вычисляем делением на 10.

2. Неполное условие

Answer 2

Ответ:

Задание 1

Объяснение:

var

s, k, i: integer;

begin

s:=0;

for i:= 1 to 10 do

 begin

 readln(k);

 s := s + k;

 end;

writeln(s / 10);

end.