не забываем - нумерация в массиве начинается с 0
var
d : array of integer := new integer[30];
n : integer := -1;
i : integer;
begin
d := arrRandom(30, -100, 100);
repeat
n += 1;
if d[n] > 0 then i += 1;
until (n = 29) or (i = 4);
writeln('массив: ', d);
writeln('четвертый положительный элемент массива d[', n, ']=', d[n]);
end.
Вот, сорян что фото, потому что Знания говорят что там есть запрещённые слова.
Program n1;
var r: real;
begin
write('радиус шара (см): ');
readln(r);
writeln('площадь боковой поверхности: ',4*pi*r*r,' (кв. см)');
writeln('обьем шара: ',1/3*pi*r*r*r,' куб. см)');
end.
Program Project;
uses
crt;
var
a: byte;
begin
clrscr;
Write("Введите число ");
Readln(a);
Writeln("Полученные числа:",(a div 100)," ",(a mod 10));
Readln;
end.
Q=3KB=3072 Byte=24576 бит
K=6144 символа
i=24576/6144=4 бита
N=2^4=16 символов
2) решение N=128=2^7
i=7 бит
7*10=70 бит