1.создать массив из 20-ти случайных чисел(значения от 0 до 100вывести на экран значения массива строкой. вычислить сумму элементов 2. создать массив из 20-ти случайных чисел(значения от 0 до 100).вывести на экран значения массива строкой. вычислить количество элементов

1.program program1; vara: array [1..20] of integer; i,k: integer; beginrandomize; for i: =1 to 20 doa[i]: =random(101); k: =0; for i: =1 to 20 dobeginwrite(a[i],', '); k: =k+a[i]; end; writeln('сумма элементов массива: ',k); end.2.program program2; vara: array [1..20] of integer; i,k: integer; beginrandomize; for i: =1 to 20 doa[i]: =random(101); k: =0; for i: =1 to 20 dobeginwrite(a[i],', '); inc(k); end; writeln('количество элементов массива: ',k); end.

№1var r,n: integer; c: array[0..9]of integer; beginfor r: =0 to 9 do beginc[r]: = random(50)-25;   write(c[r]: 4); if (abs(c[r]) mod 2 = 1)and (r mod 2 = 0) then c[r] : = 0; end; writeln; foreach n in c dowrite(n: 4); end.№2var r,n,m,max,k: integer; c: array[0..9]of integer; beginmax: =-30; for r: =0 to 9 do beginc[r]: = random(50)-25;   write(c[r]: 4); if (c[r] < 0) and (max < c[r]) then max : = c[r]; end; writeln; for r: =0 to 9 do beginif c[r] > 0 then  c[r]: = max; end; writeln; foreach n in c dowrite(n: 4); end.

Program fgg; var x: string[10]; t, v, s: real; begin write('что будем искать? : '); readln(x); if x = 'скорость' then begin write('введите расстояние: '); readln(s); write('введите время: '); readln(t); writeln('скорость=', s / t); end else if x = 'время' then begin write('введите расстояние: '); readln(s); write('введите скорость: '); readln(v); writeln('время=', s / v); end else if x = 'расстояние' then begin write('введите скорость: '); readln(v); write('введите время: '); readln(t); writeln('расстояние=', v * t); end else writeln('неверно указано, что будем искать.'); end.