Я сделала ввод массива с клавиатуры, но ты можешь сделать его рандомными числами
const N=5;
var A: array [1..N] of real;
i: integer;
begin
writeln('Введите массив');
for i:=1 to N do
readln(A[i]);
writeln('Положительные элементы:');
for i:=1 to N do
if A[i]>0 then
writeln('A[', i, ']=', A[i]);
end.
Program kol_dney;
var a: integer;
begin
writeln ('Введите год');
readln (a);
if a mod 4 <> 0 then writeln ('В этом году 365 дней') else
if (a mod 4 = 0) and (a mod 100 <> 0) then writeln ('В этом году 366 дней') else
if (a mod 100 = 0) and (a mod 400 <> 0) then writeln ('В этом году 365 дней');
end.
По x точка 6, по y 2, координаты точки А (6;2)
Т Ира а=е
Не суди строго.Я пыталась