Дан целочисленный массив из 30 элементов.вывести количество отрицательных, положительных и равных нулю элементов(массив записать в 1.txt)

Var t: text; a: array[1..30] of integer; i,m,b,r: integer; begin assign(t,'output.txt'); rewrite(t); for i: =1 to 30 do begin read(a[i]); if a[i]> 0 then b+=1 else if a[i]< 0 then m+=1 else r+=1; write(t,a[i],' '); end; write(m,' ',b,' ',r); close(t); end.

Program i5; var   s,d,r,i: integer;   a: array [1..30] of integer; begin   for i: =1 to 30 do         readln(a[i]);   s: =0;   d: =0;   r: =0;   for i: =1 to 30 dot         begin             if a[i]< 0 then                   s: =s+1;             if a[i]> 0 then                   d: =d+1;             if a[i]=0 then                   r: =r+1;           end;       writeln(s,'_',d,'_',r); end.

#include <iostream>

#include <vector>

using namespace std;

int fibo(int n){

   if(n == 1 || n == 2)

       return 1;

   return fibo(n-1) + fibo(n-2);

}

void solve1(){

   int n;

   cin >> n;

   cout << fibo(n);

}

void solve2(){

   const int INF = 1e9 + 7;

   int n, mx1 = -INF, mx2 = -INF;

   cin >> n;

   vector<int> a(n);

   for(auto &i : a) cin >> i;

   for(auto &i : a){

       if(i > mx1){

           mx2 = mx1;

           mx1 = i;

       }

       else if(i > mx2)

           mx2 = i;

   }

   cout << mx2 << " " << mx1;

}

program amountnumbers;

var

 amount, number, a: integer;

begin

 write('Введите трехзначное число: ');

 read(number);

 writeln('Введите число А:');

 read(a);

 while number > 0 do

 begin

   amount := amount + number mod 10;

   number := number div 10;

 end;

 if (amount mod a = 0) then

   writeln('Да')

 else

   writeln('Нет');

end.

Объяснение:

program amountnumbers;  // Название программы

var

 amount, number, a: integer;  // Целочисленные переменные:

amount - сумма цифр трехзначного числа;number - трехзначное число, вводимое с клавиатуры;a - число для проверки на кратность.

begin  // Начало программы

 write('Введите трехзначное число: ');  // Вывод сообщения в консоль

 read(number);  // Считываем трехзначное число с клавиатуры

 writeln('Введите число А:');  // Вывод сообщения в консоль

 read(a);  // Считываем число А с клавиатуры

 while number > 0 do  // Пока значение переменной number > 0

 begin  // Начало цикла

   amount := amount + number mod 10;  // Сумма цифр = сумма цифр + последняя цифра числа

   number := number div 10;  // Отделяем последнюю цифру от числа

 end;  // Конец  цикла

 if (amount mod a = 0) then  // Если значение переменной amount делится на значение переменной A без остатка, тогда

   writeln('Да')  // Вывод сообщения в консоль

 else  // Иначе

   writeln('Нет');  // Вывод сообщения в консоль

end. // Конец программы