Уяши флешка на 8гб , у алины в два раза больше, чем у яши, а у марата флешка состовляет четыре третьих общего объёма флешек у алины и яш. какой объём флешки у марата? ответы: 16гб 32гб 64гб 1гб

8  гб + 16  гб = 24  гб   24 * 4  /  3 = 96 / 3 = 32 гб ответ: 32 гб

1способ  var  a, b: integer; begin  write('введите a: ');     readln(a);     write('введите b: ');   readln(b);   var x : = range(a, b);   writeln('последовательность: ');   x.println;   writeln('ср. ариф. неотриц чисел: ');   writeln(x.where(x -> x > = 0).average); end. 2 способ var   a, b,i,s: integer;   k: real; begin   write('введите a: ');     readln(a);     write('введите b: ');   readln(b);   writeln('последовательность: ');   for i: =a to b do    write(i,' '); writeln(); s: =0; for i: =a to b do      if i> =0 then begin    s: =s+i;     k: =k+1; end; writeln('ср. ариф. неотриц чисел: ');   write(s/k); end.

program maximal;

const

nmax=100;

var

a: array[1..nmax] of integer;

n,i,max: integer;

begin

readln(n);

max: =0;

for i: =1 to n do

  begin

    read(a[i]);

    if max< a[i] then

      max: =a[i];

end;

write(max);

end.

////////

2) program b;

    const

nmax=100;

var

a: array[1..nmax] of integer;

n,i,z: integer;

begin

readln(n);

z: =0;

for i: =1 to n do

  begin

    read(a[i]);

    if a[i]> 0 then

        write(a[i],' ');

    if a[i]=0 then

        z: =z+1;

end;

writeln();

for i: =1 to n do

    begin

      if a[i]< 0 then

        write(a[i],' ');

  end;

writeln();

for i: =1 to z do

    write('0',' ')

end.