Заполнить массив из 10 элементов случайными числами - вопрос №10114463 от керамбит1 23.11.2021 13:09

Question

Информатика: Заполнить массив из 10 элементов случайными числами в интервале [0..4] и вывести номера всех элементов, равных х. пример: исходный массив: 4 0 1 2 0 1 3 4 1 0 что ищем? 0 а[2], а[5], а[10] народ нужно,

керамбит1 · Answer

var a:array[0..10] of integer; i,x:integer; Begin   read(x);   randomize;   for i := 1 to 10 do begin     a[i]:=random(4);     if a[i]=x then writeln( a[ ,i, ] );   end; End....