nas81

27.02.2021 23:30

Информатика

Есть ответ 👍

ОЧЕНЬ НАДО, написать программу на языке программирования Pascal!!!!
С клавиатуры вводится рост 20 учащихся 8 класса. Определить средний рост учащихся 8 класса.

223

306

Посмотреть ответы 3

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

dianacat1017

Информатика

4,8(21 оценок)

program z1;

var

q, w, e, r, t, y, u, i, o, p, a, s, d, f, g, h, j, k, l, z: integer;

begin

writeln('Введите рост 1 учащегося');

readln(q);

writeln('Введите рост 2 учащегося');

readln(w);

writeln('Введите рост 3 учащегося');

readln(e);

writeln('Введите рост 4 учащегося');

readln(r);

writeln('Введите рост 5 учащегося');

readln(t);

writeln('Введите рост 6 учащегося');

readln(y);

writeln('Введите рост 7 учащегося');

readln(u);

writeln('Введите рост 8 учащегося');

readln(i);

writeln('Введите рост 9 учащегося');

readln(o);

writeln('Введите рост 10 учащегося');

readln(p);

writeln('Введите рост 11 учащегося');

readln(a);

writeln('Введите рост 12 учащегося');

readln(s);

writeln('Введите рост 13 учащегося');

readln(d);

writeln('Введите рост 14 учащегося');

readln(f);

writeln('Введите рост 15 учащегося');

readln(g);

writeln('Введите рост 16 учащегося');

readln(h);

writeln('Введите рост 17 учащегося');

readln(j);

writeln('Введите рост 18 учащегося');

readln(k);

writeln('Введите рост 19 учащегося');

readln(l);

writeln('Введите рост 20 учащегося');

readln(z);

writeln('Средний рост учащихся ', (q + w + e + r + t + y + u + i + o + p + a + s + d + f + g + h + j + k + l + z) / 20, ';');

end.

raisa3yusif

Информатика

4,5(98 оценок)

program Project1;

const

maxelem = 100;

var

a: array [1..maxelem] of integer; { Переменная для хранения массива.}

n: integer; { Переменная для хранения значения количества элементов в массиве.}

i,k: integer; { Вс переменные для организации циклов.}

sum: integer; { Переменная для хранения значения суммы выбранных величин роста}

begin

n:= 15;

for i:= 1 to n do

repeat

write('Введите значение ',i,' элемента: ');

Readln(a[i]);

if (a[i] < 150) or (a[i] > 200) then

writeln('Введенное число не входит в заданный диапазон.');

until (a[i] >= 150) and (a[i] <= 200);

writeln('Исходный массив: ');

for i:= 1 to n do

begin

write(a[i]:5);

if i mod 10 = 0 then

writeln;

end;

sum:= 0;

k:= 0;

for i:= 1 to n do

if a[i] > 180 then

begin

sum:= sum + a[i];

inc(k);

end;

writeln;

if k = 0 then

writeln('В классе нет учеников с ростом выше 180 см.')

else

writeln('Средний рост игроков баскетбольной команды: ',(sum/k):0:2);

Readln;

end.

Sakura171

Информатика

4,4(35 оценок)

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

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

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.