Pascal. процедуры. вычислить , где s1 и k1 – сумма и количество положительных элементов массива x(n); s2 и k2 – сумма и количество положительных элементов массива y(m) m ≤50 n ≤50

Type     mas = array [1..50] of integer; var     x,y : mas;     s1,k1,s2,k2 : integer;     s,k : integer; //если вещественные, а не целые заменить на real(integer) procedure ma (var x,y : mas);   var       i : integer;   begin     for i : = 1 to 50 do       begin       x[i] : = random(50);       y[i]: =random(75);         end;     end; procedure sk (var s,k : integer; a : mas);   var       i : integer;     begin       s : = 0; k : = 0;     for i : = 1 to 50 do        if a[i] > 0 then       begin         s : = s + a[i];         k : = k +1;       end;     end;   begin randomize; ma(x,y); sk (s,k,x); s1 : = s; k1 : = k; sk (s,k,y); s2 : = s; k2 : = k; //вывод по желанию end.    

обект

5. Последовательность инструкций, предназначенных для исполнения устройством выполнения вычислительной машины

6. Знания которые пока не используются человеком

8. дисциплина которая основана на использование компьютерной техники изучает структуру и общее свойства информации закономерности её и методы для создания, хранения, поиска преобразования в различных сферах человеческой деятельности

9.

11. Процесс, при котором создаются условия, удовлетворяющие потребностям любого человека в получении необходимой информации

12. какая структура современной информатики основана на математических разделах

13. Наука изучающая проблемы, возникающие в системе "человек-техника=система", с целью оптимизации трудовой деятельности оператора, создания для него комфортных условий

14. Важнейшее свойство информации

15. какой интеллект изучает обработку информации подобной той которую делает человек

По вертикали

1. Сменный носитель информации используемый для многократной записи и хранения данных

2. сведения об окружающем нас мире и происходящих в нем процессов

3. идеи человечества и указания по реализации этих идей, накопленные в форме, позволяющей их воспроизводство.

7. Внутреннее устройство, устанавливается в один из разъемов материнской платы, и служит для обработки информации, поступающей от процессора или из ОЗУ на монитор

10. Универсальное техническое средство для работы с информацией

11. один из информационных процессов

12. совокупность методов и устройств, используемых людьми для обработки информации.

var  a: array [1..100] of integer; i,n,min,max: integer; begin      read(n);       for i : = 1 to n do            read(a[i]);       min: =a[1];       max: =a[1];       for i: = 1 to n do begin            write(a[i],' ');             if max< a[i] then max: =a[i];             if min> a[i] then min: =a[i];       end;       writeln(min,max); end.