Оператор Write ('ball'); выводит на экран ballWrite ('ball');Write (' ')computer'ball'​

количество базовых цветов обозначим за n. из всех базовых цветов будет складываться какой то один цвет, соответственно количество всевозможных цветов можно вычислить по формуле n=2^(2*n)

var a: array[1..20] of integer; s,i: integer; begin

s : = 0; for i : = 1 to 20 do begin a[i] : = random(40)-20; if a[i] > 0 thens : = s+a[i]; write(a[i]: 4); end; writeln; writeln(s); end.

графика

монитор

клавиши (это вообщем универсальный способ . в фотошопе без клавы никак)

фотоопарат

телевизор

магнитофон (если видео магнитофон)

текст

монитор (вот сейчас я это пишу с монитора, без него никак)

клавиши

фотоопарат (цифровые да, например вставляют дату и время снимка на каждой фотографии)

калькулятор

телевизор (аналогично монитору)

uses crt; var a: array [1..99, 1..99] of integer; i,j,n,m,x,z: integer; beginclrscr; randomize(); z: =0; writeln('введите количество строк'); readln(n); writeln('введите количество столбцов'); readln(m); writeln('введите номер строки'); readln(x); for i: =1 to n dofor j: =1 to m dobegina[i,j]: =random(10); if x=i then z: =z+a[i,j]; end; for i: =1 to n dobeginfor j: =1 to m dowrite(a[i,j]: 2, ' ' ); writeln(); writeln; end; writeln('сумма ',x,' строки=',z); readln(); end.