СУММ (А2:А6) равно 13 и =СУММ(А1:А6)=22 => в ячейке A1=22-13
=СРЗНАЧ(А1:А2) => (9+x)/2=3 => x=-3
Var H1:array[1..5] of integer;
H2:array[1..8] of integer;
N1:array[1..5] of integer;
N2:array[1..8] of integer;
i, j:integer;
begin
randomize;
for i:=1 to 5 do {заполняем массивы}
begin
H1[i]:=random(10);
N1[i]:=random(10);
end;
for i:=1 to 8 do
begin
H2[i]:=random(10);
N2[i]:=random(10);
end;
for i:=1 to 5 do {сравниваем продукцию}
for j:=1 to 8 do
if N1[i]=N2[j] then writeln(i, ' и ', j, ' Выпускают одинаковую продукц.');
write('H1 ');{выводим массивы}
for i:=1 to 5 do
write(H1[i], ' ');
writeln;
write('N1 ');
for i:=1 to 5 do
write(n1[i], ' ');
writeln;
write('H2 ');
for i:=1 to 8 do
write(H2[i], ' ');
writeln;
write('N2 ');
for i:=1 to 8 do
write(N2[i], ' ');
writeln;
end.
Ответ:
3). 32 метра
Объяснение:
32 Гбайт = 32000 Мбайт
32000 / 1 = 32000 файлов
32000 файлов, в каждом 100 листов - 32000 см = 32 метра
Uses crt;
var x,m: array [1..40] of integer;
n,k,c:integer;
begin
readln(n);
c:=1;
for k:=1 to n do
begin
write('x[',k,']:');
readln(x[k]);
end;
k:=1;
repeat
if x[k]>0 then
begin
m[c]:=x[k];
inc(c);
inc(k);
end
else inc(k);
until c=6;
writeln;
for c:=1 to 5 do
writeln('m[',c,']:',m[c]);
<span>end.</span>
var
a, max, i: integer;
begin
repeat
readln(a);
if(a > max) and (a mod 2 = 0) then max := a;
inc(i);
until(i = 6);
writeln('Макс. четное число: ', max);
end.
