На уроке информатики,я научусь пользоваться компьютером,работать в программами.
//Dev-C++ 5.11 (C)
#include <stdio.h>
#include <ctime>
#include <stdlib.h>
int main(void)
{const int m=5;
const int x=5;
int Matrix[m][x],min,a,b;
srand(time(NULL));
scanf("%d %d",&a,&b);
for(int i=0;i<m;i++)
{for(int j=0;j<x;j++)
{Matrix[i][j]=(rand()%(b+1-a))+a; //r=(rand()%(max+1-min))+min
printf("%d ",Matrix[i][j]);}
printf("\n");}
a=1;
min=Matrix[0][0];
for(int i=0;i<m;i++)
{for(int j=0;j<x-a;j++)
if(min>Matrix[i][j])
min=Matrix[i][j];
a++;}
printf("%d",min);
return 0;}
Пример ввода:
-30 30
Пример вывода:
3 11 -18 21 27
22 -5 21 13 -11
-6 15 16 -28 -5
10 -15 6 -24 -3
-10 -15 25 -30 -30
-18
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure NOD(a,b:integer; var r:integer);
begin
while b>0 do (a,b):=(b,a mod b);
r:=a
end;
begin
var a,b,c,d:integer;
Write('Введите четыре натуральных числа через пробел: ');
Read(a,b,c,d);
var p,q,r:integer;
NOD(a,b,p); q:=(a*b) div p; // НОК(a,b)
NOD(c,d,p); r:=(c*d) div p; // НОК(c,d)
NOD(q,r,p); r:=(q*r) div p; // НОК(a,b,c,d)
Writeln('НОК=',r)
end.
<u>Пример</u>
Введите четыре натуральных числа через пробел: 15 23 36 150
НОК=20700