1. Информатика
  2. Заполнить массив из 10 элементов

Заполнить массив из 10 элементов случайными целыми числами в интервале [0, 100] и подсчитать среднее значение всех элементов, которые < 50 pascal

darkilia2006p01bb5 darkilia2006p01bb5    1   21.05.2019 18:20    0

Ответы
Авитя1 Авитя1  16.06.2020 14:59

var

a:array [1..10] of integer;

s:integer;

i,k:byte;

sr:real;

begin

randomize;

for i:=1 to 10 do begin

a[i]:=random(101);

write (a[i],' ');

if a[i]<50 then begin s:=s+a[i];k:=k+1;end;

end;

writeln;

sr:=s/k;

writeln (sr:0:2);

readln;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
gasuslov gasuslov  21.11.2019 22:46
5№ 10383у исполнителя альфа две команды, которым присвоены номера: 1. прибавь 1; 2. умножь на b(b — неизвестное натуральное число; b ≥ 2).выполняя первую из них,...
6aPaLlJek 6aPaLlJek  21.11.2019 22:42
Скорость передачи данных через adsl-соединение равна51 бит/с. через данноесоединение файл размером4950 кб. определите время передачи файла​...
rustamzade2018 rustamzade2018  07.09.2021 14:01
не списывать. Дайте развернутые ответы на вопросы:1.Что такое компьютерная сеть? Каково ее назначение? 2.Покажите различные соединения в сеть четырех компьютеров-серверов....
gulzazak gulzazak  07.09.2021 14:01
Используя поисковые системы интернета составьте топ 3 компаний которые принципиально отказываются применять искусственный интеллект в своей деятельности несмотря...
MaxZvanie MaxZvanie  07.09.2021 14:02
сделать задание 8 класс по информатике. Файл прилагается. Я, его сделал,но не уверен в правильности ответа. Ребята,может кто то делал это задание,и ....
val40 val40  18.10.2020 20:53
Вопросы:5.Выполни Учебное задание Закодируй с кодировочной таблицы ASCII : а) МАМА б) Я ученик Подсчитай сколько байт в слове Школа Подсчитай сколько бит в предложении...
milasuraeva milasuraeva  04.12.2020 13:19
Найти минимальный элемент для каждого столбца двумерного массива размерностью NxN. #Паскаль...
kopulenkodimasGAS kopulenkodimasGAS  04.12.2020 13:19
В магазин доставлено 50 кг сахара цене 15 грв за один кг 100 кг муки цене 8 грн за кг 12 кг мяса цене 95 грн за кг и 20 кг рыбы цене70 грн за кг.Разработайте программу...
1978dan 1978dan  04.12.2020 13:19
Создать список, вывести в виде таблицы каждый его элемент в соответствии: 1 столбец - нечетные (при этом все элементы разделить на 4), 2 столбец - четные (все элементы...
fourkovioxk812 fourkovioxk812  04.12.2020 13:19
Заполни таблицу. Когда Аня, Вика и Рита спросили, какие им поставили оценки за контрольную по математике, учительница ответила: «Попробуйте догадаться сами, если...

Популярные вопросы