const
n=10;
var
b: array [1..n] of integer;
count,sum,pr,i:integer;
begin
count:=0; sum:=0; pr:=1;
for i:=1 to n do
begin
b[i]:=random(101)-50;
write(b[i]:4);
if (b[i] > 7) and (b[i] mod 4 = 0) then
begin
inc(count);
sum:=sum+b[i];
pr:=pr*b[i];
end;
end;
writeln;
if count > 0 then
begin
writeln('Count: ',count);
writeln('Summa: ',sum);
writeln('Proizvedenie: ',pr);
end
else writeln('Takix net');
end.
Написал на С++
Объяснение:
#include <iostream>
#include <windows.h>//для русской раскладки
using namespace std;
int main()
{
SetConsoleCP(1251);//подключаем русскую раскладку
SetConsoleOutputCP(1251);
unsigned int kol;//количество чисел в последовательности
unsigned int kratnie4 = 0;//количество чисел кратных 4
do//проверка ввода, что количество чисел не превышает 1000
{
cout << "Введите количество чисел в последовательности (оно должно быть натуральным и меньше 1000): ";
cin >> kol;
} while (kol > 1000);
unsigned int* a = new unsigned int[kol];//инициализируем массив
cout << "Введите элементы массива(они должны быть натуральными и меньше 30000):" << endl;
for (int i = 0; i < kol; i++)
{
do//проверка ввода, что число не превышает 30000
{
cout << "a[" << i + 1 << "] = ";
cin >> a[i];
} while (a[i] > 30000);
}
for (int i = 0; i < kol; i++)
{
if (a[i] % 4 == 0)
kratnie4++;
}
cout << "Количество чисел кратных 4 в последовательности равна: " << kratnie4 << endl;
delete a; // высвобождение памяти
system("pause");
return 0;
}
INPUT a
INPUT b
IF a>b THEN PRINT a: END
IF a<b THEN PRINT b ELSE PRINT "наибольшего нет"
END