Const N=5; M=6;
var A:array[1..100,1..100] of Integer;
B:integer;
function massive():integer;
begin
B:=random(-100,100);
Result:=B;
end;
procedure input(i,j:integer);
begin
For i:=1 to N do
For j:=1 to M do
A[i,j]:=massive();
end;
procedure
output(i,j:integer);
begin
For i:=1 to N do
begin
For j:=1 to M do
Write(A[i,j],' ');
Writeln;
end;
end;
begin
input(1,1);
output(1,1);
<span>end.</span>
В Form1 , создаете 7 объектов, (Edit1,Edit2,Edit3,Label1,Label2,Label3,Button1),2 кликк по кнопке (button1)
в созданную процедуру вставляйте код:
procedure TForm1.Button1Click(Sender: TObject);var a,b:integer;begin a:=StrToInt(Edit1.Text); b:=StrToInt(Edit2.Text); Edit3.Text:= IntToStr((a+b)*2)end;
<span>1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
<span>#include <iostream>
#include <windows.h>
using namespace std;
void main()
{
SetConsoleOutputCP(1251);
int num, col;
int a=0;
int min;
cout << "Программа которая находит минимальное из введенных пользователем чисел." << endl;
cout << "Сколько чисел вы введёте ?" << endl;
cin>>col;
cin>>num;
min=num;
do {
cout << "Введите число --> ";
cin >> num;
if (min>num) {
min=num;
}
a++;
} while (a < col-1);
cout<<min<<endl;
<span>}</span></span></span>
