В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Милка534535
Милка534535
10.08.2021 05:03 •  Информатика

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

Показать ответ
Ответ:
Viktoriua25868
Viktoriua25868
09.10.2020 22:23

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.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота