У вас есть три числа (три переменные) найдите их медиану(link is external).
Примечание: это условие давалось как простая разминочная задачка для
собеседования в Яндекс.
Изучите код:
var s, t:integer;
f, b:boolean;
begin
f := true;
b := false;
if (f=true) then
t:=1
else
t:=2;
if (b=false) then
s:=3
else
s:=4;
end.
-- блоки условий можно переписать более кратко, без использования сравнения
= true или = false, с сохранением той же логики работы программы.
var z,s:integer;
f:boolean;
begin
s:=1;
if (z=s) and (f=false) then
begin
writeln();// делаем перенос строки
z:=0;
s:=s+1;//но увеличиваем кол-во строк
end;
Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.
var a : array [1..7] of integer;
i, max: integer;
begin
for i:=low(a) to high(a) do
begin
writeln('vvedite chislo ', i, ':');
readln(a[i]);
end;
for i:= low(a) to high(a) do
begin
if(a[i]>max) then
max:= a[i];
end;
write(max);
readln();
end.
Есть программа, где стоит проверка на ввод пользователем числа 1 или числа 5:
var s:integer;
begin
writeln('Vvedite chislo 1 ili 5');
readln(s);
if (s = 1) then
writeln('soobchenie 1');
if (s = 5) then
writeln('soobchenie 2');
Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований. Если:
сумма баллов Коли и Миши больше 20
или произведение баллов Пети и Миши меньше 55
--то тогда вывести в консоль сообщение о том, что ничья,
в противном случае вывести сообщение, что победил Коля.
Пользователь вводит 7 чисел одно за другим, сохраните их в массив, выведите этот массив на экран.
Примечание: вывод значений массива сделайте в отдельном цикле.
ar a : array [1..7] of integer;
i : integer;
begin
for i:=low(a) to high(a) do
begin
writeln('vvedite element massiva nomer ', i, ':');
readln(a[i]);
end;
for i:= low(a) to high(a) do
begin
writeln(i,' element = ',a[i]);
end;
readln();
end.
Задайте в коде программы массив из чисел семи чисел:
1 12 45 6 7 18 99
Затем обойдите это массив, выводя его значения на экран.
var a : array [1..7] of integer;
i : integer;
begin
a[1]:= 1;
a[2]:= 12;
a[3]:= 45;
a[4]:= 6;
a[5]:= 7;
a[6]:= 18;
a[7]:= 99;
for i:= low(a) to high(a) do
begin
write(a[i],' ');
end;
readln();
end.