Создайте диаграммы иллюстрирующие ответы на следующие вопросы : 1) какое количество аккаунтов в соц. сетях у ваших одноклассников; 2) какова доля одноклассников пользующихся различными соц. сетями; 3)какова активность использования соц. сетей вашими одноклассниками(сформулируйте самостоятельно показатели активности) какую информацию вам необходимо собрать для этого? ​

графический файл состоит из 10000 точек.. используется всего два цвета, то есть на кодировку 1 цвета уходит 1 бит информации.. => 10000 бит

состояние тропосферы в данной местности и в данное время называеться погодой

var a: array [1..8,1..5]of integer;

s,i,k: integer;

begin

  randomize;

  for i: = 1 to 8 do begin

        for k: = 1 to 5 do begin

              a[i,k]: = random(20)-10;

              write(a[i,k]: 3,' ');

              if a[i,k] mod 2 = 0 then s: =s+a[i,k];

        end;

        writeln;

  end;

  writeln('s=',s);

end.

на чём писать? ну впрочем саму суть тут в условии:

объявляешь 3 числа: a b c

и условие

  if(a> 0)then

a: =a*a;

if(b> 0)then

b: =b*b;

if(c> 0)then

c: =c*c;

  выводишь на экран(или как там надо)

сори за ошибки давно на паскале не писал