"Массив из 7 случайных чисел на отрезке…

Program znanija_com; type tArray=array[1… 7] of integer; var arr: tArray; i: integer; begin randomize; writeln ('Исходный массив: '); for i: =1 to 7 do begin arr[i]: =random (30-10+1)+10; writeln (i, ' — элемент равен ', arr[i]); end; for i: =1 to 7 do begin if (arr[i] mod 10=5) or (arr[i] mod 10=0) then writeln (i, ' — кратный 5 '); end; readln (); end.