Задание:
Дан массив из 10 целых чисел от -20 до 20. Написать программу, определяющая каких элементов в нем больше: положительных или отрицательных. Помогите решить, паскаль
Решение:
Program z10; var a,b: Array [1… 10] of integer; i,q,k: integer; BeginRandomize; q: =0; k: =0; For i: =1 to 10 dobegina[i]: =random (40) -20; if (a[i]<0) then q: =q+1; if (a[i]>0) then k: =k+1; end; if (k>q) then writeln ('положительных больше'); if (k Знаете другой ответ?