На одной дороге находятся поселения K и R, между которыми 48 км. Автомобиль выехал из поселения R в направлении, противоположном K, со скоростью 45 км/ч. Необходимо составить математическую модель, которая будет описывать положение автомобиля относительно поселения K через t часов. S= --- ×t + ---, t ≥ ---
в --- вставить нужные цыфры
A: array [1 .. 5] of real;
i, j: byte;
sum, tmp: real;
begin
sum := 0;
{ Заполнение массива }
for i := 1 to 5 do
begin
write('A[', i, '] = ');
readln(A[i]);
sum := sum + A[i]; // подсчет суммы
end;
writeln(#13 + 'Сумма элементов = ', sum);
{ Сортировка по убыванию }
for i := 1 to 4 do
for j := i + 1 to 5 do
if A[i] < A[j] then
begin
tmp := A[i];
A[i] := A[j];
A[j] := tmp;
end;
{ Вывод }
writeln('Отсортированный массив: ');
for i := 1 to 5 do
write(' ', A[i]);
end.
CLS
INPUT "n,m=", n, m
REDIM a(1 TO n, 1 TO m) AS INTEGER
imin = 1: jmin = 1: imax = 1: jmax = 1
RANDOMIZE TIMER
FOR i = 1 TO n
FOR j = 1 TO m
t = INT(51 * RND): a(i, j) = t
PRINT t;
IF a(imin, jmin) > t THEN
imin = i: jmin = j
END IF
IF a(imax, jmax) < t THEN
imax = i: jmax = j
END IF
NEXT j
PRINT
NEXT i
PRINT "Sum="; imin + jmin + imax + jmax
Тестовое решение
n,m=8,5
46 23 13 43 35
18 47 44 41 37
45 0 34 30 7
0 28 27 49 47
46 18 48 39 11
2 17 32 43 38
31 43 15 16 16
30 32 46 9 31
Sum= 13