Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести минимальное значение среди трёхзначных элементов массива, делящихся на 7. (паскаль)

Question

Информатика

Ефросин

30 января, 07:49

Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести минимальное значение среди трёхзначных элементов массива, делящихся на 7. (паскаль)

+5

Ответы (2)

Знаете ответ на вопрос?

Армений · Answer 1

Const

N = 13;

Var

A:array[1 ... N] of integer;

i, Min:integer;

Begin

Randomize;

Write ('Исходый массив:') ;

For i: = 1 to N do

Begin

A[i]:=random (10000) - 5000;

Write (' ', A[i])

End;

WriteLn;

Min:=1000;

For i: = 1 to N do

if (99
Min:=A[i];

if Min = 1000 then WriteLn ('В массиве нет трёхзначных элементов, кратных семи')

else WriteLn ('Min = ', Min) ;

End.

Пример:

Исходый массив: 2635 4814 - 2784 1015 - 462 - 50 4069 - 4566 578 168 707 660 - 731

Min = - 462

Веселье · Answer 2

Var a, b, c: Integer;

begin

readln (a, b, c) ;

if (a mod 7 = 0) and (b mod 7 = 0) and (c mod 7 = 0) then

begin

if (a < b) and (a < c) then writeln ('Min = ', a)

else if (b < c) then writeln ('Min = ', b)

else writeln ('Min = ', c) ;

end;

end.