Паскаль подсчитать количество трёхзначных чисел кратных 50

Program zd; var i,n: 100..999; k: integer; begin k: =0; for i: =100 to 999 do   if i mod 50=0 then       k: =k+1; writeln('количество=  ',k); end. вроде бы так

Const   nn = 50; var   t: array[1..nn] of integer;   i, n, s: integer; begin   writeln('введите количество элементов в массиве (n< 51): ');   readln(n);   writeln('введите элементы массива');   s: =0;   for i : = 1 to n do   begin       read(t[i]);       if t[i]< 0 then s : = s + t[i]   end;   writeln('сумма отрицательных элементов массива равна ', s) end. тестовое решение: введите количество элементов в массиве (n< 51): 10 введите элементы массива 5 -6 2 0 4 11 -8 0 1 -2 сумма отрицательных элементов массива равна -16

На C++:

#include <iostream>

#include <cmath>

using namespace std;

int main() {

setlocale(0, "RU");

int a, b, c;

cout << "Введите коэффициенты уравнения: ";

cin >> a >> b >> c;

cout << "D = b^2 - 4 * a * c\n";

cout << "D = " << b * b << " - " << 4 * a * c << endl;

double D = (b * b) - (4 * a * c);

cout << "D = " << D << endl;

int d = sqrt(D);

cout << "vD = " << endl << endl;

 

 

a *= 2;

int x1 = (-b - d) / a;

int x2 = (-b + d) / a;

cout << "x1 = (-b - vD) / 2a = " << x1 << endl;

cout << "x2 = (-b + vD) / 2a = " << x2;

return 0;

}