Погите . нужно написать на языке паскаль. 1. с клавиатуры заполнить целочисленный одномерный массив. вывести неотрицательные элементы массива. 2. дан одномерный массив целых чисел. определить каких элементов больше, максимальных и минимальных 3. дан одномерный массив целых чисел. подсчитать количество элементов, равных заданному массиву x. число х вводится с клавиатуры

1)var  a: array [1..5] of integer; i,k: integer; beginwriteln('перечислите элементы массива: '); for i: =1 to 5 doread(a[i]); for i: =1 to 5 do  if (a[i] > -1) then write(a[i]: 2); end.2)var  a: array [1..5] of integer; i,k1,k2,max,min: integer; beginmin: =maxint; max: =-maxint; writeln('перечислите элементы массива: '); for i: =1 to 5 do  beginread(a[i]); if (a[i] > max) then max: =a[i]; if (a[i] < min) then min: =a[i]; end; for i: =1 to 5 do  beginif (a[i] = max) then inc(k1); if (a[i] = min) then inc(k2); end; if (k1> k2) then writeln('больше max элементов')  else writeln('больше min элементов'); end.3)var  a: array [1..5] of integer; i,k,x: integer; beginwrite ('x = '); read(x); writeln('перечислите элементы массива: '); for i: =1 to 5 do begin       read(a[i]); if (a[i] = x ) then inc(k); end;   writeln('kol = ',k) ; end.

ответ:var

a:integer;

begin

write('введите двузначное число: ');readln(a);

writekn('ответ: ',(a div 10)+(a mod 10));

end.

Объяснение:вот так