Условие:
1.2. «які позитивні впливи іпз на життєдіяльність сучасного суспільства можуть революційним чином змінити його якість? »
1.3. «виявити негативні чинники впливу іпз на життя суспільства і наскільки критичними є ризики незворотності їх наслідків? »
1.4. «наскільки сучасні досягнення іпз здатні посилити проблему неконтрольованого впливу на життя людей створюваних кіберсистем? »
1.5. «чому професійна діяльність фахівців іпз дозволяє обгрунтовано стверджувати про їх належність до «інтелектуальної еліти суспільста? ».
(можно отвечать на )

var

  s: string;

  z,z1,i: integer;

begin

  readln(s);

z: =0;

z1: =0;

  for i: =1 to length(s) do

  begin

  if s[i]='м' then inc(z);

  if s[i]='н' then inc(z1);

  end;

if z> z1 then writeln('больше букв м');

if z< z1 then writeln('больше букв н');

if z=z1 then writeln('букв м и н равное количество');

end.

если массив состоит из 10 элементов то код программы:

const

  n=10;  

var

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

  i,min: integer;  

begin

for i: =1 to n do  read(a[i]);     {вводишь заданный массив}

min: =32767;

for i: =1 to n do

  if a[i]< min then min: =a[i];

write(min);

end;  

var

a,b: real;

begin

readln(a,b);

if (a> 0) or (b< -2) then

writeln('истинно')

else

writeln('ложно');

end.

картинка должна быть в папке с программой и быть в формате bmp

usesgraphabc;

varn: string; b: picture; s: integer;

beginwriteln('введите расстояние до зеркала'); readln(s); write('введите имя файла рисунка: '); readln(n); window.clear; b : = picture.create(n); b.load(n); b.draw(50, 50); b.fliphorizontal; b.draw(50+2*s,50); end.