Дан массив целых чисел из 18 элементов,заполненный случайным образом числами из промежутка [-40;80].Вывести на экран все элементы,которые состоят из одинаковых цифр.
Ответы
Ответ дал:
0
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(18,-40,80); a.Println;
a.Where(t->(t mod 10)=(t div 10)).Println
end.
Пример
34 -22 11 63 -9 43 34 -32 -34 -32 28 17 50 37 80 49 2 29
-22 11
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(18,-40,80); a.Println;
a.Where(t->(t mod 10)=(t div 10)).Println
end.
Пример
34 -22 11 63 -9 43 34 -32 -34 -32 28 17 50 37 80 49 2 29
-22 11
Ответ дал:
0
var
a:array[1..18] of integer;
i:integer;
begin
Randomize();
Write('Исходный массив: ');
For i:= 1 to 18 do
begin
a[i]:=-40 + random(121);
Write(a[i], ' ');
end;
Writeln();
Write('Элементы, состоящие из одинаковых цифр: ');
For i:= 1 to 18 do
if (a[i] mod 10 = a[i] div 10 ) then
Write(a[i], ' ');
end.
Пример:
Исходный массив: 40 68 13 -38 -9 29 77 78 27 14 74 42 50 79 -22 -15 22 20
Элементы, состоящие из одинаковых цифр: 77 -22 22
a:array[1..18] of integer;
i:integer;
begin
Randomize();
Write('Исходный массив: ');
For i:= 1 to 18 do
begin
a[i]:=-40 + random(121);
Write(a[i], ' ');
end;
Writeln();
Write('Элементы, состоящие из одинаковых цифр: ');
For i:= 1 to 18 do
if (a[i] mod 10 = a[i] div 10 ) then
Write(a[i], ' ');
end.
Пример:
Исходный массив: 40 68 13 -38 -9 29 77 78 27 14 74 42 50 79 -22 -15 22 20
Элементы, состоящие из одинаковых цифр: 77 -22 22
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад