Вот держи)

var k,N,numb,min :integer;
begin
min:=30000;
readln(N);
for k:= 1 to N do
begin
readln(numb);
if (numb mod 10 = 4) and (numb < min) then
min:= numb;
end;
writeln(min);
<span>end.</span>

0 0

1 год назад

При выполнении оператора z:=b∗m значения ячеек оперативной памяти с именами b и m переносятся в процессор, где над ними выполняе

Dominika72 [101]

Весьма интересно описан процесс перемножения чисел ;)

Результат операции будет в временной с именем z

0 0

4 года назад

Исправить ошибки в паскале program massiv2 ; type mas=array [1..100] of integer ; var a:= Max; i, n, min , max, b : integer; нед

derogaz

Program massiv2;
type
mas = array [1 .. 100] of integer;
var
a: mas;
i, n, min, Max, b: integer;
begin
write('n=');
readln(n);
for i := 1 to n do
begin
    write('a[', i, ']=');
    readln(a[i]);
end;
Max := a[1]; min := a[1];
for i := 1 to n do
begin
    if a[i] > Max then
      Max := a[i];
    if a[i] < min then
      min := a[i];
end;
b := Max - min;
writeln(b);
writeln;
readln;
end.

0 0

4 года назад

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