Question

Дан массив целых чисел из 25 элементов, заполненный случайным образом числами из промежутка от -60 до 90. Вывести на экран все элементы, первая цифра которых совпадет с заданной.

Answer 1

program Massive;

uses crt, Math;

var

mas: array [1..25] of integer;

d,x: integer;

z: byte;

begin

randomize();

repeat

writeln('Введите одну полижительную цифру от 1 до 9:');

readln(x);

until x>=0 and x<=9;

z:=1;

//проверка на совпадения

while z<=25 do

begin

mas[z]:=random(-60,90);

d:=mas[z] div 10;

if abs(d)=x or abs(mas[z])=x then

write('Совпадения:', mas[z],' ');

z:=z+1

end;

writeln('Конец проверки');

readln

end.