PascalABC.NET

type mass = array [1..4] of integer;

var a : mass;
i : integer;

function min(c : mass) : integer;
var
i,minim : integer;
begin
minim := c[1];
for i := 2 to 4 do
if c[i] < minim then
minim := c[i];
result := minim;
end;

begin
for i := 1 to 4 do
readln (a[i]);
writeln ('min = ',min(a));<span>
end.

Как параметр я использовал массив из четырех элементов. Можно использовать просто переменные и через IF все прописать</span>

0 0

4 года назад

Подсчитайте сумму всех трёхзначных чисел , у которых первая цифра 4 , а последняя 9

ppsh

Трёхзначные - значит
409+419+429+439+449+459+469+479+489+499=4540

0 0

3 года назад

Прочитать ещё 2 ответа

Нужна срочно помощь!Паскаль! Ввести 2 целых числа и вывести на экран четные и нечётные числа,но чтобы четные были со знаком "-"

vitaliya1

Program abc;
var a, b, k: integer;

BEGIN

read (a, b);

for k:=1 to (b-a) do

begin

if (a mod 2) <>0 then

writeln ( a)

else

writeln ('-', a);

a:=a+1

end;

end.

0 0

4 года назад

Дано 3 числа. Росположены ли рядом max и min число. Блок схемой пж.

XolS1993

Ответ:

program beside;

var a, b, c, maxi, mini: integer;

begin

Read(a, b, c);

maxi := max(a, max(b, c));

mini := min(a, min(b, c));

if (b = maxi) or (b = mini) then

Writeln('Yes')

else

Writeln('No')

end.

Объяснение:

0 0

4 года назад