Question

ИНФОРМАТИКА ПАСКАЛЬ


массив предназначен для хранения значений весов двенадцати человек. с помощью датчика случайных чисел заполнить массив целыми значениями, лежащими в диапазоне от 50 до 100 включитель. подсчитать сколько человек имеет вес от 50 кг до 80 кг​

Answer 1

Ответ:

program Ves;

var v:array [1..12] of integer;

i,k:integer;

begin

k:=0;

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

for i:=1 to 12 do

begin

v[i]:=random(51)+50;

write(v[i]:3);

if (v[i] >= 50) and (v[i] <=80) then k:=k+1

end;

writeln;

writeln (k,' человек имеет вес от 50 кг до 80 кг')

end.