2) Если считать, что 1 бит = 2 цвета, 8 бит= 1 байт = 256 цветов (то есть 2 в 8 степени) , 1 Мбайт = 2 в 20 степени = <span> 1 048 576 цветов и умнажаем все на 64=67108864 цветов. </span>
Uses Crt;
const n=10;
var
A: array[1..n] of integer;
i,f,f1: integer;
begin
clrscr;
f:=-1;
f1:=-1;
for i:=1 to n do
begin
writeln('введите',i,' элемент массива ');
readln (A[i]);
if A[i]>0 then
begin
f1:=A[i];
if f<0 then
f:=A[i];
if f>f1 then
f:=A[i];
end;
end;
writeln('наименьшее положительное', f);
readln;
end.
===== PascalABC.NET =====
begin
var a := MatrRandom(6, 6, -20, 20);
a.Println(4);
a.ElementsByRow
.GroupBy(p -> p)
.Where(p -> p.Count > 1)
.MaxBy(p-> p.Key)
.Distinct
.Println
end.
<span>
N вводится с клавиатуры
#include<span> <stdio.h>
</span>
int main()
{
int i = 0<span>;
</span> int N<span>;
</span>
scanf("%i", &N)<span>;
</span>
for ( i = 0; i < N; i++ ){
printf ("*")<span>;
</span> }
}</span>