Не за что, надеюсь в ответ тоже будет благодарность. Прикреплен еще исходник
varn,i,min,c:integer;
a:array [1..100] of integer;
begin
n:=6;for i:=1 to n do
begin
writeln ('vvedi element massiva');
readln (a[i]);
end;
min:=a[1];
c:=1;
for i:=2 to n do
begin
if min>a[i] then begin min:=a[i];c:=i; end;
end;
writeln ('min=', min, ' nomer=',c);
readln;
<span>end.</span>
Получится рисунок B,так как при создании круга она создаётся с левого верхнего угла.
Пусть правильный ответ 5
Var a:integer;
Begin
A:=0;
While a<>5 do Readln(a)
<Остальная часть программы>
1 символ=8 бит
40 символов= 40 (символы) * 8 (бит)
40 строк по 40 символов= 40 (строк) * 40 (символы) * 8 (бит)
48 страниц по 40 строк по 40 символов= 48 (страниц) * 40 (строк) * 40 (символов) * 8 (бит)
40*8*48*40 = 614,400 бит
614 400 бит = 76,800
76,800 = 75 Кбайт
Получится 75 Кбайт,первый вариант.
#scripdablmassive #windowsreset