список учительницы список Марины
Катя Арбузова Марина Яблочкина
Яша Арбузов
Коля Белкин Роберт Щукин
Лена Волкова Сережа Тополев
Дима Иволгин Валя Стрелкина
Валя Стрелкина Дима Иволгин
Серёжа Тополев Коля Белкин Лена Волкова
Роберт Щукин Яша Арбузов
Марина Яблочкина Катя Арбузова
Программа:
Pascal:
var
arr: array[1..10] of integer;
N, i: integer;
begin
write('N = '); readln(N);
// заполняем массив случайными числами от 0 до 100
for i := 1 to 10 do arr[i] := random(100);
writeln(arr);
for i := 1 to 10 do
if arr[i] > N then arr[i] := N;
writeln(arr);
end.
Результат:
N = 50
[35,24,57,10,99,50,44,67,93,89]
[35,24,50,10,50,50,44,50,50,50]