Паскаль. розгалудження. скласти програму, яка дає довідку про назву столиці (st) та про кількість населення (nas, у мільйонах) деякої країни( kr) з такого переліку: угорщина, італія, україна.

Const   st: array[1..3] of string = ('будапешт', 'рим', 'киев');   nas: array[1..3] of real = (9.9, 61.5, 44.3);   kr: array[1..3] of string = ('венгрия', 'италия', 'украина');   {сведения о численности населения по данным ресурса     countrymeters по состоянию на 03.07.2014} var   i: integer; begin   write('введите 1-венгрия, 2-италия, 3-украина -> ');   readln(i);   if i in [1..3] then       writeln('страна- ', kr[i], ', столица- ', st[i], ', население (млн. ', nas[i])   else       writeln('неверный ввод! ') end. тестовое решение: введите 1-венгрия, 2-италия, 3-украина -> 2 страна- италия, столица- рим, население (млн. 61.5

1. начало(в овале)

ввод a,b,min (в паралелограмме)

a< b (в ромбе)

2 стрелки, первая стрелка "нет" и в прямоугольнике min: =b

вторая стрелка "да" и в прямоугольнике min: =a

вывод min (в паралелограмме)

конец(в овале)

 

 

2.начало(в овале)

ввод a,b, c, min (в паралелограмме)

a< b (в ромбе)

2 стрелки, первая стрелка "нет" и в прямоугольнике min: =b

вторая стрелка "да" и в прямоугольнике min: =a

min< c (в ромбе)

2 стрелки, первая стрелка "нет" и в прямоугольнике min: =c

вторая стрелка сразу к выводу

вывод min (в паралелограмме)

конец(в овале)

 

 

 

const n = 12; var  a: array[1..n] of integer;   i, count, s, max: integer; begin  write('массив до: ');   for i : = 1 to n do begin    a[i] : = random(19) - 8;     write(a[i], ' ');     if(a[i] > max) then max : = a[i];     if(a[i] > 3) then inc(count) else    if(a[i] < 0) then begin      s : = s + a[i];       a[i] : = i;     end;   end;   writeln;   write('массив после: ');   for i : = 1 to n do write(a[i], ' ');   writeln;   writeln('1) кол-во эл. в массиве,значения которых > 3: ', count);   writeln('2) сумма всех отрицательных эл. массива: ', s);   writeln('3) макс. элемент: ', max); end.