Очень , нужно написать программу на паскале, где ты - вопрос №207087105 от asyanikolaeva0p08iun 17.01.2020 09:44

Question

Информатика: Очень , нужно написать программу на паскале, где ты вводишь 5 фамилий и им даётся случайная оценка от 1 до 5, после нужно вывести фамилии у которых 5

asyanikolaeva0p08iun · Answer

var

a: array[1..5] of string;

i: integer;

begin

randomize;

for i:= 1 to 5 do readln(a[i]);

writeln('Фамилии с оценкой 5: ');

for i:= 1 to 5 do if random(1,6) = 5 then writeln(a[i])

end.