Question

Запиши программу на языке программирования Pascal Дано 7 целых чисел Напиши программу нахождения наибольшего ненулевого среди них.Спамеров баню сразу!СРОЧНО! даю 90 баллов

Answer 1

Ответ:

program Chernovik;

var a,m,i: integer;

begin

m:=0;

for i:=1 to 7 do

begin

read(a);

if (m=0) and (a<>0) then m:=a;

if (a>m) and (a<>0) then m:=a

end;

if m<>0 then write(m)

else write ('Не было не 0 чисел')

end.

Объяснение:

Последнее условие если все 7 чисел равны 0.

Answer 2

Конечно, вот программа на языке Pascal, которая находит наибольшее ненулевое число из 7 целых чисел:

pascalCopy code
program FindLargestNonZero;
var
  numbers: array[1..7] of integer;
  i, largestNonZero: integer;
begin
  writeln('Введите 7 целых чисел:');
  
  for i := 1 to 7 do
  begin
    readln(numbers[i]);
    if (numbers[i] <> 0) and ((largestNonZero = 0) or (numbers[i] > largestNonZero)) then
      largestNonZero := numbers[i];
  end;

  if largestNonZero <> 0 then
    writeln('Наибольшее ненулевое число: ', largestNonZero)
  else
    writeln('Среди введенных чисел нет ненулевых чисел.');

  readln;
end.

Вы можете скопировать этот код и выполнить его в вашей среде разработки Pascal, чтобы найти наибольшее ненулевое число из 7 введенных чисел.