Задание 1.
program z1;
var a: array[0..14] of integer;
i: integer;
begin
Randomize;
for i:=0 to 14 do a[i] := Random(101) - 50;
for i:=0 to 14 do write(a[i], ' ');
end.
Задание 2.
program z2;
var a, b, c: array[0..19] of integer;
i: integer;
begin
Randomize;
for i:=0 to 19 do begin
a[i] := Random(21) - 10;
b[i] := Random(21) - 10;
c[i] := a[i] + b[i];
end;
for i:=0 to 19 do write(a[i], ' ');
writeln();
for i:=0 to 19 do write(b[i], ' ');
writeln();
for i:=0 to 19 do write(c[i], ' ');
end.
Задание 3.
program z3;
var a: array[0..19] of integer;
i: integer;
begin
a[0] := 1;
a[1] := 1;
for i:=2 to 19 do begin
a[i] := a[i-1] + a[i-2];
end;
for i:=0 to 19 do write(a[i], ' ');
end.
1) не менее 60-70 см
2)длительное время сохранять (нести) в своей структуре занесённую на него информацию, без использования дополнительных устройств (например, источника энергии).
3)Зрительная, тактильная, слуховая, вкусовая, обонятельная
4) это Всемирная информационная компьютерная сеть, связывающая между собой как пользователей компьютерных сетей, так и пользователей индивидуальных компьютеров для обмена информацией.
5)Правило 1: Помните, что Вы говорите с человеком Правило 2: Придерживайтесь тех же стандартов поведения, что и в реальной жизни. Правило 3: Помните, где Вы находитесь в киберпространстве. Правило 4: Уважайте время и возможности других Правило 5: Сохраняйте собственное достоинство Правило другим там, где Вы это можете делать. Правило 7: Не ввязывайтесь в конфликты и не допускайте их.
Правило 8: Уважайте право на частную переписку. Правило 9: Не злоупотребляйте своими возможностями. Правило 10: Учитесь прощать другим их ошибки…
6)специализированная программа для обнаружения компьютерных вирусов, а также нежелательны
7)утилиты
Объяснение:
поставь лучший ответ
себебі интернетте хакерлер өте көп!