Задача 1
program z1;
var n,a,i,k:integer;
begin
write ('Введите количество чисел: ');
read (n);
for i:=1 to n do
begin
write ('Введите число: ');
read (a);
if a = 0 then k:=k+1
end;
writeln('Количество нулей среди чисел: ',k)
end.
Задача 2
program z2;
var n,a,i,m:integer;
begin
write ('Введите количество чисел: ');
read (n);
for i:=1 to n do
begin
write ('Введите число: ');
read (a);
if i = 1 then m:=a;
if a > m then m:=a
end;
writeln('Максимальное число среди чисел: ',m)
end.
или
program z2;
var n,i,m:integer;
a:array[1..100] of integer;
begin
write ('Введите количество чисел (n<=100): ');
read (n);
for i:=1 to n do
begin
write ('Введите число: ');
read (a[i]);
if i = 1 then m:=a[i];
if a[i] > m then m:=a[i]
end;
writeln('Максимальное число среди чисел: ',m)
end.
#include <iostream>
#include <ctime>
#include <cstdlib>
using namespace std;
int main()
{
int n;
int MIN;
int counter = 0;
cout << "Enter size of the array: ";
cin >> n;
int mass[n];
srand(time(NULL));
cout << "An array of the random elements:\n";
for (int i = 0; i < n; i++)
{
mass[i] = 1 + rand() % 4;
cout << mass[i];
cout << "\t";
}
MIN = mass[0];
for (int i = 1; i < n; i++)
{
MIN = MIN < mass[i] ? MIN : mass[i];
}
for (int i = 0; i < n; i++)
{
if (MIN == mass[i]) counter++;
}
cout << "\nNumber of elements that equal the min element of the array: " << counter - 1 << endl;
}
