const N = 10;
var
a: array[1..N] of integer;
i: integer;
begin
write('До замены: ');
for i := 1 to N do begin
a[i] := random(100);
write(a[i], ' ');
end;
writeln;write('После замены: ');
for i := 1 to N do begin
if(a[i] mod 2 = 0)then a[i] := a[i] * (-1);
write(a[i], ' ');
end;
end.
128•28•64•8=1835008 бит=229376 байт=224 мбайт
Ответ:224
Подробнее расскажи о сайте (содержание и вид)
10*15 переведем в дюймы
1 дюйм = 2,54 см
10 / 2,54 = 3,937 дюймов
15 / 2,54 = 5,9 дюймов
определим объём файла
3,937*600 * 5,9*600 * 3 = 25086564 байт
<span>25086564 байт / 1024 = 24498,59 Кбайт / 1024 = 23,92 Мбайт</span>
Uses crt;
var a:array [1..25] of integer; i,t,j,max,s:integer;
begin
max:=-10; s:=0; t:=0; j:=0;
for i:=1 to 25 do begin
a[i]:=random(18)-10;
if a[i]> max then begin
max:=a[i];
j:=i;
end;
end;
for i:=1 to 25 do begin
t:=t+1;
write(' a[',i:2,']=',a[i]:2);
if t=5 then begin
writeln;
t:=0;
end;
end;
j:=j+1;
for i:=j to 25 do
s:=s+a[i];
write(s);
end.<span> </span>