1. Сформировать массив из 45 целых случайных чисел, вывести его на экран, определить, есть ли среди них числа, делящиеся нацело на 16. Если такие числа есть, то вывести их на экран.
2. Сформировать массив из 25 целых случайных чисел, вывести его на экран. Найти среди них отрицательные и вывести их на экран

#include "stdafx.h"
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "rus");
float a, b, c, x1, x2;
cout << "Введите основную сторону: \n";
cin >> a;
cout << "Введите две других: \n";
cin >> b;cin >> c;
cout << "Введите углы: \n";
cin >> x1; cin >> x2;
if (a*a == b*b + c*c) cout << "Прямоугольный\n";
if (a*a < b*b + c*c) cout << "Остроугольный\n";
if (a*a > b*b + c*c) cout << "Тупоугольный\n";
if (x1 == x2) cout << "Равнобедренный\n";
if (a == b && b == c) cout << "Равносторонний \n";
system("pause");
return 0;
}

Uses crt;
var input, betw:integer;
begin         
readln(input);                  
betw := input;          
betw := betw div 10;         
betw := betw div 10;         
betw := betw div 10;
      
writeln('Тысяч = ', betw); 
                
betw := input;         
betw := betw div 10;         
betw := betw div 10;         
betw := betw mod 10;                  
writeln('Сотен = ', betw);                 
betw := input;         
betw := betw div 10;         
betw := betw mod 10;                  
writeln('Десятков = ', betw);                           
betw := input;         
betw := betw mod 10;                  
writeln('Единиц = ', betw);        end.