Помогите пожалуйста, Pascal

1891 · 26.11.2017, 18:29

program one;
const n=10;
var a:array [1..n] of integer;
i, max,min,k,imax,imin,summ:integer;
begin
for i:=1 to n do
begin
a[i]:=random(100);
write( a[i]:4);
end;
max:=a[i];
imax:=1;
for i:=2 to n do
if max then a[i];
begin
min:=a[i];
imin:=i;
end;

summ:=0;
if imax<imin then
for k:=imax+1 to imin-1 do
summ:=summ+a[k]
else
for k:=imin+1 to imax-1 do
summ:=summ+a[k];

writeln;
for i:=1 to n do
write(a[i]:4);

writeln;
writeln('Max= ',max);
writeln('imax= ', imax);
writeln('min= ', min);
writeln('imin ', imin);
writeln('summ ', summ);
end.

prima · 26.11.2017, 19:45

А шо тут думать? Прыгать надо!

Условие цикла - выражение логическое.
А ты условием ставишь просто целочисленную переменную. В следующем цикле IF у тебя выражение, сравниваются две переменных, поэтому ошибки нет, а тут явно чего-то не дописал.
И вообще: условие задачи можно увидеть?

Vladimir_S · 26.11.2017, 21:17

Цитата:

Сообщение от prima

Условие цикла - выражение логическое. А ты условием ставишь просто целочисленную переменную. В следующем цикле IF у тебя выражение, сравниваются две переменных, поэтому ошибки нет, а тут явно чего-то не дописал.

То есть вот это

Цитата:

Сообщение от 1891

max:=a[i];
imax:=1; for i:=2 to n do
if max then a[i];
begin min:=a[i];
imin:=i;
end;

представляющее собой абсолютно бессмысленный, тупо и безграмотно откуда-то перекатанный фрагмент, должно выглядеть так:

Код:

max:=a[1]; 
imax:=1; 
for i:=2 to n do 
 if a[i]>max then 
  begin
   max:=a[i];
   imax:=i;
  end; 
min:=a[1]; 
imin:=1; 
for i:=2 to n do 
 if a[i]<min then 
  begin
   min:=a[i];
   imin:=i;
  end;

26.11.2017, 18:29	#1 (permalink)
1891 Новичок Регистрация: 26.11.2017 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите пожалуйста, Pascal program one; const n=10; var a:array [1..n] of integer; i, max,min,k,imax,imin,summ:integer; begin for i:=1 to n do begin a[i]:=random(100); write( a[i]:4); end; max:=a[i]; imax:=1; for i:=2 to n do if max then a[i]; begin min:=a[i]; imin:=i; end; summ:=0; if imax<imin then for k:=imax+1 to imin-1 do summ:=summ+a[k] else for k:=imin+1 to imax-1 do summ:=summ+a[k]; writeln; for i:=1 to n do write(a[i]:4); writeln; writeln('Max= ',max); writeln('imax= ', imax); writeln('min= ', min); writeln('imin ', imin); writeln('summ ', summ); end.

26.11.2017, 19:45	#2 (permalink)
prima Member Регистрация: 31.08.2015 Сообщений: 19,433 Сказал(а) спасибо: 283 Поблагодарили 213 раз(а) в 96 сообщениях Репутация: 80884	А шо тут думать? Прыгать надо! Условие цикла - выражение логическое. А ты условием ставишь просто целочисленную переменную. В следующем цикле IF у тебя выражение, сравниваются две переменных, поэтому ошибки нет, а тут явно чего-то не дописал. И вообще: условие задачи можно увидеть? __________________ Пожалуйста не предлагайте мне дружбу. Не хочу отказывать, но у меня другие понятия, поэтому просто не отвечу.

26.11.2017, 18:29
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Возможно участники форума давали ответ в похожих темах Помогите пожалуйста. Pascal ABC Pascal. Помогите пожалуйста

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070