Паскаль Для массива из 10 частей найти среднее арифметическое тех частей

Паскаль Для массива из 10 частей найти среднее арифметическое тех частей значение которых меньше 15

Задать свой вопрос
1 ответ
program n1; var a:array[1..10] of integer; i,s,k:integer; sr:real; begin for i:=1 to 10 do read(a[i]); for i:=1 to 10 do if a[i]lt;15 then begin s:=s+a[i]; k:=k+1; end; if k=0 then writeln(ERROR) else begin sr:=s/k; writeln(sr:0:3); end; end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт