INPUT a$FOR i = 1 TO LEN(a$) b$ = MID$(a$, i, 1) IF i = LEN(a$) THEN ELSE h$ = h$ + b$ + "-" END IFNEXT iPRINT h$ + b$
надеюсь разберетесь что тут к чему, этот кусок кода нужно вставить после строки for i := 1 to n do writeln(r[i]); {Найденный массив}, а после этого вывести измененный массив, сами допишите. Если что-то не понятно смотрите текстовый файл во вложении.
Найдем кол-во бит в одном пикселе:
4=2^x
x=2
Объем видеопамяти = 320*240*2=153600 бит=19200 байт = 18,75 Кбайт
Ответ:
var i,k:integer;
a:array [1..8] of integer;
begin
write('Массив');
for i:=1 to 8 do
begin
a[i]:=random (75)-50;
write(a[i]:4);
if (a[i]<13) and (a[i] mod 8 = 0 ) then k:=k+1
end;
writeln;
writeln('Количество элементов, меньших 13 и кратных 8 равно ',k);
end.
Квадрат-зеленый, Круг-синий, Ромб-белый, Треугольник красного. Недавно решали по информатике.