const
ns=20;
var a:array[1..ns,1..ns] of integer;
m,n,i,j:byte;
min,sum:integer;
begin
randomize;
readln(m,n);
writeln('Исходная матрица:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(20);
write(a[i,j]:3);
end;
writeln;
end;
writeln('Минимальные элементы столбцов:');
sum:=0;
for j:=1 to n do
begin
min:=a[1,j];
for i:=1 to m do
if a[i,j]<min then
min:=a[i,j];
sum:=sum+min;
writeln(j,' - ',min:2);
end;
writeln('Сумма минимальных элементов: ',sum);
end.
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=ReadArrInteger(10);
Writeln('П = ',b.Where(t->t<0).Aggregate(BigInteger(1),(i,j)->i*j))
end.
<u>Пример</u>
342345 -23423 23423 -24234 -65534 -8632 18 0 -8563225 4235
П = -2749685894248606294581600
#include "math.h"
#include <stdlib.h>
#include "stdio.h"
#include "conio.h"
#include <iostream>
using namespace std;
int main()
{
using namespace std;
int N;
int count = 0;
setlocale(LC_ALL, "Russian");
cout << "Введите N : "; cin >> N;
for (int i = 0; i <= N; i++)
{
if (i % 5 == 0 && i!=0) count++;
}
cout << "Натуральных чисел,кратных 5-ти в данном ряду : "<< count;
cout << endl;
_getch();
}
Var a:array[1..10] of integer;
i,x:integer;
begin
write('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(5);
write(a[i],' ');
end;
WRITELN;
write('Что ищем?: ');
readln (x);
for i:=1 to 10 do if x=a[i] then write('A[',i,'] ');
end.