1. составьте программу ввода и вывода массива: 5, -3, 4, -8, -9, 1, 9, 6, -3, 4, 8, 2. 2. составьте блок-схему алгоритма и программу вычисления в массиве a(10) количества нечетных элементов.

Uses   crt; var   num1,num2,num3: integer;     chtenie: text;   zapis: text;   {фунция перевода числа в троичную систему счисления} function fromdec(n: longint): string; var   s: string; const   digit: string[16]='0123456789abcdef'; begin   s: ='';   repeat       s: =digit[(n mod 3)+1]+s;       n: =n div 3;   until n=0;       fromdec: =s; end; {осоновная программы} begin {читаем из файла} assign(chtenie,'exemp5.in'); reset(chtenie); read(chtenie,num1); read(chtenie,num2); close(chtenie); {записываем в файл}

// pascalabc.net 3.0, сборка 1076 const   n=20; { количество дат } type   tdate=record       d: 1..31;       m: 1..12;       y: word   end; var   dates: array[1..n] of tdate;   i: byte;   s,st: string;   begin   randomize;   for i: =1 to n do begin       s: ='';       with dates[i] do begin           d: =random(27)+1;           str(d,st);           if length(st)=1 then st: ='0'+st;           s: =s+st+'.';           m: =random(12)+1;           str(m,st);           if length(st)=1 then st: ='0'+st;           s: =s+st+'.';           y: =random(51)+1960;           str(y,st);           s: =s+st;           if m in [3..5] then s: =s+' - весенняя';           writeln(s)       end   end end. тестовое решение: 22.12.1979 21.10.1975 25.03.1980 - весенняя 23.04.1967 - весенняя 09.10.1967 16.05.1965 - весенняя 09.08.1996 05.10.2001 10.11.1985 18.08.1970 08.10.1983 01.12.2005 01.01.1994 09.11.1962 14.09.1979 24.03.2008 - весенняя 14.01.2003 22.04.1990 - весенняя 18.08.1969 16.05.2009 - весенняя