1) Команда выделенная полужирным будет выполняться при двойном клике левой кнопкой мыши по той-же иконке 2) Если операционная система Windows то: - Кликнуть на красный крестик в верхнем правом углу - Кликнуть правой кнопкой мыши по шапке окна, нажать закрыть - В списке открытых окон внизу, на панели с кнопкой "пуск", выбрать нужное окно, кликнуть правой кнопкой мыши и выбрать закрыть - в этом же списке просто навести на окно, подождать появится маленькое окошечко с содержимым главного окна, на нем тоже есть красный крестик, нажать его -Открыть диспетчер задач, найти в списке нужное окно выделить его и нажать кнопку "завершить процесс" -Сочетание клавиш Alt+F4 закрывает окно - комбинация клавиш Ctrl+W закрывает некоторые окна
В слове ЗИМА обозначаем буквы их порядковым номером: З - девятая буква алфавита, И - 10, М - 14, А -1. Получаем последовательность 9 10 14 1. Будем шифровать слово ИНТЕРНЕТ. Букву И сдвигаем на 9 букв, получаем С, букву Н сдвигаем на 10 букв, получаем Ч букву Т сдвигаем на 14 букв, получаем А (так как сдвиг на 13 это буква Я, алфавит начинается заново, 14 будет буква А) букву Е сдвигаем на 1 букву, получаем Ж (если в алфавите Ё не считается) Букву Р сдвигаем на 9 букв, получаем Щ, букву Н сдвигаем на 10 букв, получаем Ч букву Е сдвигаем на 14 букв, получаем У букву Т сдвигаем на 1 букву, получаем У ответ ИНТЕРНЕТ = СЧАЖЩЧУУ
const n=10
var a:array[1..n] of integer;
i,p:integer;
begin
for i:=1 to n do begin
writeln('Введите Элементы масивa a[',i,']'=
);
readln(a[i]);
if a[i]>0 then p:=p*a[i];
end;
writeln('Произведение эл-ов массива =' ,p);
writeln('отрицательные эл-ты');
for i:=1 to n do
if a[i]<0 then write(a[i],' ');
readln
end.