У школі 3 дев'яті класи. Від кожного класу в кросі на 1 км беруть участь по 4 учні. Опишіть відповідний двовимірний масив, який буде містити результати забігу учасників. Зобразіть цей масив. Врахуйте, що рядки та стовпці із їх назвами вважаються нульовими і при описі не враховуються.
var
a, b, c: real;
begin
writeln('Введите 3 любых числа');
readln(a, b, c);
if (a < b) and (a < c) then writeln(a, ' - наименьшее число');
if (b < a) and (b < c) then writeln(b, ' - наименьшее число');
if (c < a) and (c < b) then writeln(c, ' - наименьшее число');
if (a > b) and (a > c) then writeln(a, ' - наибольшее число');
if (b > a) and (b > c) then writeln(b, ' - наибольшее число');
if (c > a) and (c > b) then writeln(c, ' - наибольшее число');
readln; //Убрать если среда разработки не Turbo Pascal
end.
Var a,b,c,d,e:integer;
Begin
Writeln('Введите значения переменных');
Readln(a,b,c,d,e);
If (a>b) and (a>c) and (a>d) and (a>e) tnen
Writeln('Наибольшее из 5 чисел ', a)
Else
If (b>a) and (b>c) and (b>d) and (b>e) tnen
Writeln('Наибольшее из 5 чисел ', b)
Else
If (c>a) and (c>b) and (c>d) and (c>e) tnen
Writeln('Наибольшее из 5 чисел ', c)
Else
If (d>a) and (d>b) and (d>c) and (d>e) tnen
Writeln('Наибольшее из 5 чисел ', d)
Else
Writeln('Наибольшее из 5 чисел ', e);
End.
Циклический алгоритм
Type
Vector=array [1..10] of integer;
Var m:integer;
a:vector;
i:byte;
Begin
Writeln('Введите значения переменных');
For i:=1 to 5 do
Readln (a[i]);
For i:=1 to 5 do
If a[i]>a[i+1] then
m:=a[i];
Writeln('Наибольшее число ', m);
End.