Замените число 10 в задании массива и циклах на нужное число действительных чисел (выделено жирным)
var
i, a, b, c: integer;
m: array[1..10] of real;
begin
for i := 1 to 10 do readln(m[i]);
for i := 1 to 10 do
begin
if m[i] > 0 then a := a + 1;
if m[i] = 0 then b := b + 1;
if m[i] < 0 then c := c + 1;
end;
writeln(с, ' ', a, ' ', b);
end.
А где работа то? нет ничего
Например клавиатура
................................
На каком языке нужно? Если на с++ то
#include
using namespace std;
int main ()
{ int a,b,c,d;
cin >> a >>b>>c>>d;
a=(a+b)*10;
c=c*d;
if(a>c){
cout << a;
}
else cout << c;
}