program aa;
var minus, plus, zero, N, C, Q : integer;
begin
zero:=0;
plus:=0;
minus:=0;
C:=0;
writeln('Введите количество чисел);
read(N);
writeln('Вводите числа');
while C<N do begin
read(Q);
C:=C+1;
If Q=0 then zero:=zero+1;
If Q<0 then minus:=minus+1;
If Q>0 then plus:=plus+1;
end;
writeln('Нулей: ',zero);
writeln('Отрицательных: ',minus);
writeln('Положительных: ',plus);
end.
// language c++
float array[n];
//Zadacha 1
//1)
int answer;
for (i =0, i <n, i++)
{
if (array[0] >= array[i])
array[0] = array[i];
answer = i;
}
cout<<answer;
//2)
int summ;
float array2[n];
for(int i =0, i < n, i++)
{
summ +=array[i];
}
cout<<summ;
//Zadacha2
float massive[n];
for (int i = 0, i < n, i++)
{
if (massive[i] < 0)
massive[i] = -1 * massive[i];
}
//1)
int answer = 0;
for (i =0, i <n, i++)
{
if (massive[0] >= massive[i])
massive[0] = massive[i];
answer = i;
}
cout << answer;
дальше измени сама
var month:integer;
begin
readln(month);
if ((month >0 ) and ( month < 13)) then
case month of
1 : writeln ('january (31 days) ');
2 : writeln ('fabruary (28 days) ');
3 : writeln ('march (31 days)');
4 : writeln ('April (31 days) ');
5 : writeln ('fabruary (28 days)');
6 : writeln ('march (31 days)');
7 : writeln ('january (31 days) ');
8 : writeln ('fabruary (28 days) ');
9 : writeln ('march (31 days)');
10 : writeln ('january (31 days) ');
11 : writeln ('fabruary (28 days) ');
12: writeln ('march (31 days)');
end
else writeln('error');
readln;
end.
var
n,o,p,k,i:integer;
a:real;
begin
repeat
write ('N = ');readln(n);
until (n>0);
i:=0;
k:=0;
p:=0;
o:=0;
repeat
write ('Ввод: ');readln(a);
i:=i+1;
if a<0 then o:=o+1 else
if a>0 then p:=p+1 else k:=k+1;
until i=n;
writeln ('Кол-во положительных: ',p);
writeln ('Кол-во отрицательных: ',o);
writeln ('Кол-во нулей: ',k);
readln;
end.