Составьте и выполните программу рост и вес среднестатистического учащегося

Const n=3; //к-во воспитанников
var i:integer;
sr,sw:real;
r:array[1..n] of integer;
w:array[1..n] of integer;
begin
sr:=0;
sw:=0;
for i:=1 to n do
begin
write(‘Рост ‘,i,’ ученика: ‘);
readln(r[i]);
sr:=sr+r[i];
write(‘Вес ‘,i,’ воспитанника: ‘);
readln(w[i]);
sw:=sw+w[i];
end;
sr:=sr/n;
sw:=sw/n;
writeln;
writeln(‘Средний рост ученика: ‘,sr:5:2);
writeln(‘Средний вес ученика: ‘,sw:5:2);
end.

Alla Otlinova 2019-01-18 22:37:20

Пожалуйста, указывайте версию языка Паскаль, если программка не может быть выполнена в хоть какой из его версий. В вашем случае комменты // не являются возможными во всех версиях языка.

Источник: obrazovalka.com

Помогите, составить программу рост и вес среднестатистического учащегося в

Пропорция. Основное свойство пропорции. 6 класс.

Найди верный ответ на вопрос ✅ «Помогите, составить программу рост и вес среднестатистического учащегося в Pascal ABC . » по предмету Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.

Новые вопросы по информатике

Сколько всего различных символов может быть в восьмибитной текстовой кодировке? 1) 8 2) 512 3) 256 4) 65536

Паскаль. Написать программу подсчета количества отрицательных чисел среди любых 10 вводимых. 1 программа с использованием while, 2 программа — repeat

Сколько кб информации содержит сообщение объемом 2^20 бит?

Информатика пользователь создад сообщение из 256 символов в кодировке Unicode в которой каждый символ кодируется 16 битами после редактирования информационный объем сообщения составил 3072 бит Определите сколько символов удалили сообщение если его

Запишите числа в беззнаковом коде (формат 1 байт): а) 31; б) 163; в) 65; г) 128.

Главная » Информатика » Помогите, составить программу рост и вес среднестатистического учащегося в Pascal ABC

Источник: urokam.net