Дан массив целых чисел (n=10), заполненный случайными числами из промежутка [-40,30]. 1. удалить из него
все элементы, которые состоят из одинаковых цифр(включая однозначные числа). 2. вставить число k перед всеми элементами, в которых есть цифра 1(k вводить с клавиатуры). 3. переставить первые три и последние три элемента местами, сохраняя их следование.
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Шадида
var a: array[1..10] of integer;
i, k, a1, a2, a3, b1, b2, b3: integer;
begin
writeln('Заполняем массив случайными числами');
randomize;
for i := 1 to 10 do a[i]:=random(-40, 30);
writeln('Введите число k');
readln(k);
writeln('Меняем массив по условию');
for i := 1 to 10 do begin
if (a[i] > -10) and (a[i] < 10) then a[i] := 0 else
if a[i] mod 10 = a[i] div 10 then a[i] := 0 else
if (a[i] mod 10 = 1) or (a[i] div 10 = 1) then a[i] := a[i] + 100;
end;
writeln('Меняем первые и последние три элемента местами');
a1 := a[1];
a2 := a[2];
a3 := a[3];
b1 := a[n-2];
b2 := a[n-1];
b3 := a[n];
a[1] := b1;
a[2] := b2;
a[3] := b3;
a[n-2] := b1;
a[n-1] := b2;
a[n] := b3;
end.
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00