Помогите решить в паскале!!!Даны пять чисел, каждое из которых по модулю не прев...

October 2021 1 16 Report

Помогите решить в паскале!!!
Даны пять чисел,
каждое из которых по модулю не превышает ста. Вычислить максимум среди
отрицательных из них.

Answers & Comments

Мавортий Var a:array[1..5] of real;
b,c:integer;
max:real;
begin
c:=0;
max:=-100;
writeln('Введите числа');
for b:=1 to 5 do
begin
readln(a[b]);
if (a[b]<0)and (a[b]>max) then begin
max:=a[b];
c:=c+1;
end;
end;
if c>0 then writeln('Максимум среди отрицательных чисел равняется ',max)
else writeln('Нет отрицательных чисел');
end.

3 votes Thanks 1

MeSmile Спасибо, только у меня вопрос, а что означает эта запись

MeSmile if (a[b]<0)and (a[b]>max)

Мавортий Если число меньше 0 и больше текущего максимума

MeSmile А это можно как-нибудь по-другому записать?

MeSmile без [b]

Мавортий Я делал через массив,поэтому записать можно только так

Answers & Comments

srochno napisat na pascal shifr atbash ne cherez massiv prisvoiv peremennoj s1

pomogite reshit v paskalevychislit ploshad parallelogramma po dvum storonam i u

pomogite reshit v paskalevychislit ugol v gradusah po ego sinusu

pomogite reshit zadachu po informatike v paskalenapisat programmu kotoraya po i

pomogite reshit zadachu po informatike v paskaleprogramma opredeleniya cifry desya

pomogite reshit zadachu po informatike v paskaleprogramma vychisleniya tangensa ug

srochno reshite v paskale ispolzuyu proceduru dano veshestvennoe a ne polz

napishite v paskale programmu kotoraya vyschitaet summu chetyreh chisel ispolzuya t

pomogite reshit zadachu po informatike v paskale napishite programmu kotoraya s

pomogite reshit zadachu po informatike v paskalenapishite programmu kotoraya schit

рекомендуемые вопросы

Helpful Links

Helpful Social