15*25,4=381 мм
максимальное пространственное расширение при квадратном экране.
sqrt(381*381/2) - сторона монитора = 269,4
число строк 269,4/0,28~962
пространственное расширение 15 дюймого монитора не более 962 х 962
Рекомендую самый простой смарт телевизор к которому необходимо купить не дорогую внешнюю клавиатуру с USB входом, т.е. с разъемом как у флешки.
Var a:array[0..999] of integer;
n,i,p,max,c,d,t,j,k:integer;
begin
write ('Введите кол-во элементов в массиве: ');
readln (n);
p:=1;
d:=0;
write ('Массив: ');
for i:=1 to n do
begin
a[i]:=random(101)-50;
write (a[i],' ');
end;
max:=a[1];
for i:=1 to n do
begin
c:=abs(a[i]);
if c>max then max:=c;
if (a[i]<0) and (i mod 2 <> 0) then p:=p*a[i];
end;
WRITELN;
writeln ('Максимальный по модулю элемент = ',max);
writeln ('Произведение отрицательных нечётных элементов = ',p);
for i:=1 to n do
begin
if i mod 2 = 0 then write (a[i],' ');
end;
end.
Это арифметический цикл
<span>for переменная := (значение №1) to (значение №2) do (оператор)
</span>например если требуется возвести в куб какое-либо число, то удобно использовать данный цикл
<span>for x:=1 to 10 do WriteLn(x*x*х);
</span>
надеюсь, что понятно написала)