Вопрос выписать пять европейских государств и их столицы в алфовитном порядке

австрия - вена

бельгия - брюссель

болгария - софия

венгрия - будапешт

испания - мадрид

 

Программа на языке паскаль. const n=30; var i, s0, k, a: integer;       b: array [1..n] of integer; begin       readln(a);       s0: =0;       k: =0;       randomize;       for i: =1 to n do       begin b[i]: =random(20001)-10001; {чтобы диапазон случайных чисел был от -10000 до 10000}                 if (b[i]< 0) then s0: =s0+b[i];                 if (b[i]> 0) and (b[i]< =a) then inc(k);       end;       if (s0< > 0) then writeln(s0, ' - сумма отрицательных чисел')       else writeln('отрицательных чисел нет');       if (k< > 0) then writeln(k, ' - количество положительных чисел, не превосходящих числа а')       else writeln('положительных чисел не превосходящих числа а, нет'); readln; end.

#include < iostream> #include < conio.h> using namespace std; int main() {   setlocale(lc_all,"russian");   int lep;   cout < < "\t\tчетное/нечетное кол-во лепестков у ромашки\n\n" < < endl;   cout < < "введите, сколько будет лепестков у ромашки: \n";   cin > > lep;   if(lep%2! =0) {     cout < < "у ромашки не четное кол-во лепестков! " < < endl;   }   else {     cout < < "у ромашки четное кол-во лепестков! " < < endl;   }  _getch();   return 0; }