1)var
a:array[1..5]of integer;
i,n,s:integer;
begin
writeln('Введите кол-во элементов');
readln(n);
writeln('Введите число');
s:=0;
for i:=1 to n do begin
read(a[i]);
if a[i]>0 then s:=s+a[i]
end;
writeln('Сумма положительных элементов массива равна ', s)
end.
2)var
a:array[1..10]of integer;
i,n,P:integer;
begin
writeln('Введите число элементов');
readln(n);
writeln('Введите число');
P:=1;
for i:=1 to n do begin
read(a[i]);
if a[i] mod 6 = 0
then P:=P*a[i]
end;
writeln('Произведение элементов массива кратных 6 равна ',P)
end.
3)var
a:array[1..5]of integer;
n,i:integer;
begin
writeln('Введите кол-во элементов');
readln(n);
writeln('Введите число');
for i:=1 to n do begin
read(a[i]);
if a[i]>0 then begin
a[i]:=a[i]*3;
writeln('Новый элемент равен: ',a[i])
end;
if a[i]<=0 then begin
a[i]:=a[i]+5;
writeln('Новый элемент равен: ',a[i])
end;
end;
end.
Буду рад если отметишь мой ответ как лучший
1. Какие функции выполняет операционная система?
d) организация диалога с пользователем, управления аппаратурой и ресурсами компьютера
2. Видеоадаптер — это:
b) устройство, управляющее работой графического дисплея;
3. Стандартный интерфейс ОС Windows не имеет ...
d) строки ввода команды
4. Файл - это ...
b) программа или данные на диске, имеющие имя и расширение
5. Какое из названных действий можно произвести с архивным файлом?
b) распаковать;
6. Операционные системы входят в состав:
b) системного программного обеспечения;
7. Укажите наиболее полный ответ. Каталог - это ...
a) специальное место на диске, в котором хранятся имена файлов, сведения о размере файлов, времени их последнего обновления, атрибуты файлов
8. Отличительными особенностями компьютерного вируса являются:
e) маленький объем к самостоятельному запуску и многократному копированию кода, к созданию помех корректной работе компьютера
9. Архивный файл представляет собой:
c) файл, сжатый с архиватора;
10. Укажите перечень устройств, входящих в состав процессора:
d) арифметико-логическое устройство, устройство управления;
11. Файловый вирус:
b) всегда изменяет код заражаемого файла;
12. Выберите из предложенного списка основные группы пакетов прикладных программ (подчеркнуть):
Текстовые редакторы, архиваторы, базы данных, текстовые процессоры, утилиты, системы искусственного интеллекта, электронные таблицы, графические пакеты
13. Выберите из списка те задания, которые решаются с сервисных программ (подчеркнуть):
Обслуживание дисков, диагностика работо компьютера, защита от вирусов.
14. Для проверки чего предназначена программа Проверка диска (подчеркнуть):
наличие поврежденных областей диска, состояние диска.
15. Заражение компьютерными вирусами может произойти в процессе
a) работы с файлами
16. Во время исполнения прикладная программа хранится:
c) в оперативной памяти;
Поделитесь своими знаниями, ответьте на вопрос:
Даны три числа.вычислите сумму 1и2 чисел и разность между суммой и 3 числом
Сумма: A+B
Разность: (A+B)-C=