Урок 15 (Решенная задача 10)
Primary tabs
Урок 15(Решенная задача 10)
10) Напишите программу, которая будет заполнять массив из 10 элементов случайными числами из диапазона от 0 до 20, при этом в полученном массиве не должно быть одинаковых значений.
var a: array[1..10] of integer; i, c : integer; begin randomize(); for i := 1 to 10 do begin a[i] := random(21); end; while (c <> 10) do begin for i:= 1 to 10 do if (a[c] = a[i]) and (c <> i) then begin a[i] := random(21); c := 1; end; c := c + 1; end; writeln(); for i := 1 to 10 do writeln(a[i]); end.
- Log in to post comments
- 815 reads
vedro-compota
Thu, 10/08/2020 - 19:47
Permalink
форматирование
форматирование неправильное, решение засчитано
_____________
матфак вгу и остальная классика =)