Контрольные вопросы Как перейти в графический режим? Как вернуться в текстовый режим? В каком режиме - id1682379220220531 от Diamond57 31.05.2022 05:47

Question

Информатика: Контрольные вопросы Как перейти в графический режим? Как вернуться в текстовый режим? В каком режиме лучше производить ввод-вывод информации? Что происходит в случае ошибки инициализации графического режима? Как изменяются координаты точек на экране монитора? Как определить количество доступных цветов графического адаптера? Что такое пиксель? Как хранится графическая информация? Как осуществить выбор шрифтов? Как заполнить фигуру цветом? Что такое графические примитивы и какие функции используются

Diamond57 · Accepted Answer

Задание 5

program SumSeq;

{$APPTYPE CONSOLE}

uses

SysUtils;

//const m:Integer ;

var

i, j, m, s:Integer;

n: array of Integer;

begin

s:=0;

Writeln(m);

Writeln('vvedite m');

Readln(m);

SetLength(n,m);

for i:=0 to m do

begin

j:=Random(10);

if j<5

then n[i]:=-1*j

else n[i]:=j;

write(n[i], ' ')

end;

Writeln;

Writeln('To continue push >>ENTER');

Readln;

for i:=0 to m do

begin

if n[i]<0

then s:=s+sqr(n[i])

end;

writeln('s=',s);

readln

{ TODO -oUser -cConsole Main : Insert code here }

end.

MOGZ ответил