Автор Александра задал вопрос в разделе Другие языки и технологии
Помогите мне решить задачу в Pascal ABC. и получил лучший ответ
Ответ от Адриан Сивак[эксперт]
думаю так можно, но не уверен________
const n=30;
var
a: array [1..n] of integer;
k: array [1..n] of integer;
i,max:integer;
begin
for i:=1 to n do begin
k:=0;
end;
writeln(' v promegytke (-20^+20) nemperatyra ');
for i:=1 to n do
begin
writeln('t[',i,']=');
readln(a);
end;
for i:=1 to n do
if (a<0) then a:= k;
for i:=1 to n do begin
if (k<k[i+1])>:=max;
end;
writeln('Maksimalnaia sredi zamorozkov= ',max);
readln;
end.
Ответ от W S[гуру]
Алгоритм на русском такой
переменной, допустим _макс_темп, присваиваем значение -21
в цикле от 1 до 30
проверяем если элемент массива меньше 0 то
проверяем если он больше значения _макс_темп то
присваиваем переменной _макс_темп значение
этого элемента
небоьшое примечание
( в задаче специально указано, что хотя бы один из холодных дней гарантируется. иначе такой алгоритм мог бы дать неправильное значение равное -21 если ни одного холодного дня не было. но поскольку он точно будет, то значение -21 заменится на какое-то другое. для этого же указан диапазон от -20)
Алгоритм на русском такой
переменной, допустим _макс_темп, присваиваем значение -21
в цикле от 1 до 30
проверяем если элемент массива меньше 0 то
проверяем если он больше значения _макс_темп то
присваиваем переменной _макс_темп значение
этого элемента
небоьшое примечание
( в задаче специально указано, что хотя бы один из холодных дней гарантируется. иначе такой алгоритм мог бы дать неправильное значение равное -21 если ни одного холодного дня не было. но поскольку он точно будет, то значение -21 заменится на какое-то другое. для этого же указан диапазон от -20)
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Помогите мне решить задачу в Pascal ABC.
из чего состоит кварк?
Предкварки (pre-quarks) — гипотетических сущностей, относящихся к структурному уровню материи,
подробнее...