Program n1;
const n=15;
var a: array[1..n] of integer;
i,k: integer;
begin
write('массив: ');
for i:=1 to n do begin
a[i]:=random(201)-100;
write(a[i],' ');
end;
writeln;
k:=0;
write('полученный массив: ');
for i:=1 to n do if a[i]<0 then
begin
a[i]:=a[i]*a[i];
k:=k+1;
end;
for i:=1 to n do write(a[i],' ');
writeln;
write('кол-во замен: ',k);
end.
11 строка не стоит точка с запятой
Ответ:
32 байта
Объяснение:
Ну так как 1 цвет это 1 байт, то логично 32 цвета это 32 байта. А в битвах это 32 × 8 = 256 бит
shift, caps lock.........................................
<span>нужно найти в массиве минимальный элемент из тех, которые не меньше 180. Это стандартная задача, она решается примерно так:[pre2] const N = 10; var A: array[1..N] of integer; k: integer; ... min := MaxInt; { записываем в min большое число, здесь - больше 200 } for k:=1 to N do if (A[k] >= 180) and (A[k] < min) then min := A[k]; writeln(min); [/pre2]</span>