Задание 1
1.Карандаш
2.Заливка
3.Шрифт
4.Пластик
5.Пипетка
6.Лупа
7.Кисти
1 флешка
2 карта
3 сканер
4 Брандма́уэр
5 Опция
6 спам
По кол-ву букв и по определению подходит, а для более точного совпадения выложите сам кроссворд
Const n = 10;
var a:array [1..n] of integer;
i,min,imin:integer; p:longint;
begin
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
min:=a[1]; imin:=1;
p:=1;
for i:=1 to n do
begin
if a[i]<min then begin min:=a[i]; imin:=i; end;
if a[i]<0 then p:=p*a[i];
end;
writeln('min = ',min,' imin = ',imin);
writeln('p = ',p);
end.
Пример:
9 5 10 -5 2 10 0 8 -8 2
<span>min = -8 imin = 9
p = 40</span>
//PascalABC.NET
var
m : integer;
begin
// Зарезервируем массив [0..9] для подсчета повторов
var a := ArrFill(10, 0);
// Запрос пользователю ввести положительное число
repeat
m := ReadlnInteger('Введите 0 или положительное число ')
until m >= 0;
// Подсчет количества повторяющихся цифр
while m > 0 do begin
a[m mod 10] += 1;
m := m div 10
end;
// Найдем в массиве повторы от 2 и более раз?
if a.FindIndex(x -> x>=2) = -1 then
// Повторов не найдено. Вывод сообщения
writeln('Нет повторов.')
else begin
// Повторы есть.
write('Повторяются: ');
// Выведем повторяющиеся цифры
for var i := 0 to 9 do
if a[i] > 1 then write(i, ' ')
end
end.
For i := a to b do
...
end;
