Pascal понимает десятичную дробь (если это просто значение а не формула) в виде числа после запятой, если же формула, то достаточно написать формулу, например, y:=x/z или же если это значение то y:=3/10
Program enot;
const m=15;
var a: array[1..m] of integer;
i, j, k: integer;
begin
for i := 1 to m do
a[i] := random(21)+10;
for i := 1 to m-1 do
for j := 1 to m-i do
if a[j] < a[j+1] then begin
k := a[j];
a[j] := a[j+1];
a[j+1] := k
end;
write ('Отсортированный массив: ');
for i := 1 to m do
write (a[i]:4);
<span>end.</span>
#include <iostream>
#include <string>
#include <conio.h>
<span>#include <cstdlib>
using namespace std;
struct TRAIN
{
string name,time;
int number;
};
void qs(struct TRAIN *arr,int first,int last)
{
int x=arr[(first+last)/2].number,
i=first,j=last;
do{
while (arr[i].number < x) i++;
while (arr[j].number > x) j--;
if (i<=j){ if (arr[i].number>arr[j].number)
{
int t=arr[i].number;
string str = arr[i].name;
string st = arr[i].time;
arr[i].number = arr[j].number;
arr[i].name = arr[j].name;
arr[i].time = arr[j].time;
arr[j].number = t;
arr[j].name = str;
arr[j].time = st;
}
i++;
j--;
}
}while(i<=j);
if (first<j) qs(arr, first,j);
if (last>i) qs(arr,i,last);
<span>}
void print(struct TRAIN *arr, int n)
{
cout<<"Пункт назначения\tНомер\tВремя\n";
for(int i(0); i < n; i++)
cout << arr[i].name << '\t' << arr[i].number << '\t' << arr[i].time <<'\n';
cout <<endl;
}
int main(int argc, char *argv[])
{
setlocale(0,"");
const int N=8;
TRAIN train[N];
for(int i(0); i < N; i++)
{
cout <<"Пункт назначения: ";
getline(cin,train[i].name);
cout <<"Номер: ";
cin >>train[i].number;
cin.get();
cout <<"Время: ";
getline(cin, train[i].time);
<span> system("cls");
</span></span></span> }
<span> print(train,N);
qs(train,0,N-1); //Быстрая сортировка
int n;
cout <<"Номер поезда: ";
cin>>n;
bool f=1;
for(int k=0; k < N; k++)
if (train[k].number == n)
{
cout << train[k].name << '\t' << train[k].number << '\t' << train[k].time <<'\n';
f=0;
break;
}
if(f) cout << "Нет такого номера поезда";
cout <<endl;
print(train,N);
_getch();
return 0;
</span>}
Program asd;
Const n=5;
m=4;
Var i,j,p:integer;
A:array[1..n,1..m] of integer;
BEGIN
For i:=1 to n do
begin
For j:=1 to m do
begin
A[i,j]:=Random(10);
Write(A[i,j]:3);
end;
Writeln;
end;
P:=1;
For i:=1 to n do
For j:=1 to m do
begin
if A[i,j]<>0 then p:=p*A[i,j];
end;
Writeln('Произведение ненулевых элементов массива: ',p);
<span>END.</span>
