Срок действия авторского права 1) 30 лет 2) 50 - вопрос №1346983013025034 от Marg06 31.03.2022 00:45

Question

Информатика: Срок действия авторского права 1) 30 лет 2) 50 лет 3) в течение жизни 4) в течение жизни и после 50 лет 2.Минимальный размер штрафа за компьютерное преступление равняется: 1)100 мрот 2)200 мрот 3) 300 мрот 4) 500 мрот 3.Программным средством защиты лицензионного программного от копирования является... 1) пароль 2)ключ 3)атребут доступа 4)код доступа 4. хакер - это 5. переведите 43 из десятичной системы в двоичную 6. поиск доступный по ссылке на стр и представляющий собой форму которую нужно заполнить

Marg06 · Answer

Числа вводятся пользователем. Прикрепил скрин работы программы, вот сама программа:

var a:array[1..999]of integer;
i,n:integer;
begin
write ('Введите кол-во чисел: ');
readln (n);
for i:=1 to n do
begin
write ('Введите ',i,' число: ');
readln (a[i]);
end;
WRITELN;
write ('Числа введённые пользователем: ');
for i:=1 to n do
write (a[i],' ');
WRITELN;
WRITELN;
write ('Положительные: ');
for i:=1 to n do
begin
if a[i]>0 then write (a[i],' ');
end;
WRITELN;
write ('Отрицательные: ');
for i:=1 to n do
begin
if a[i]<0 then write (a[i],' ');
end;
WRITELN;
write ('Чётные: ');
for i:=1 to n do
begin
if a[i] mod 2 = 0 then write (a[i],' ');
end;
WRITELN;
write ('Нечётные: ');
for i:=1 to n do
begin
if a[i] mod 2 <> 0 then write (a[i],' ');
end;
end.

Напишите программу которая выводит на экран (паскаль) а)положительные числа б)отрицательные в)четные

Напишите программу которая выводит на экран (паскаль) а)положительные числа б)отрицательные в)четные