пасканля тема

[pandaaa]

Дан массив А (-2,4,-6,0,5,0,-1,-8,4,4,3).Вычислить величину R=p^2*max(пэ в квадрате умноженное на макс),где p-произведение элементов массива А,max- его максимальный элемент нужно прогу на паскале написать

в топике помощи таким как я  встретил людей готовых помочь. но тут почемуто помочь мне не смогли думаю знающим людям написать 5 сек

[Kant]

programm abc

var

arr: array [1..11] of integer;

i, n, max, p, R:integer;

begin

//массив тут заполнить

 

max := arr[1];

p := arr[1];

n := 11;

for i:=2 to n do

 

begin

if arr > max then max := arr;

p := p * arr;

end;

R := p*p*max;

writeln®;

end.

 

 

с синтаксисом мог налажать, давно на паскале не писал

[pandaaa]

programm abc

var

arr: array [1..11] of integer;

i, n, max, p, R:integer;

begin

//массив тут заполнить

 

max := arr[1];

p := arr[1];

n := 11;

for i:=2 to n do

 

begin

if arr > max then max := arr;

p := p * arr;

end;

R := p*p*max;

writeln®;

end.

 

 

с синтаксисом мог налажать, давно на паскале не писал

Type mismatch

[TripleSteal-]

там парсер сьел. вот это напиши без кавычек "["i"]"

 

if arr > max then max := arr;

в этой строчке после arr

[pandaaa]

там парсер сьел. вот это напиши без кавычек "["i"]"

рядом с арр? а арр на а заменить можно?*

[TripleSteal-]

там парсер сьел. вот это напиши без кавычек "["i"]"

рядом с арр? а арр на а заменить можно?*

зачем тебе арр на а менять 

[pandaaa]

там парсер сьел. вот это напиши без кавычек "["i"]"

рядом с арр? а арр на а заменить можно?*

зачем тебе арр на а менять 

мне букавки больше нравятся

[pandaaa]

нажимаю ран ничего не происходит

[Kant]

а бля, точно. Это парсер [ i ] съел и пошел курсивом делать.

А я потом пост редачил и не мог понять, откуда курсив 

if arr > max then max := arr;

 

p := p * arr;

в этих строках везде добавь [ i ] в конец arr

 

 

ну можешь везде заменить arr на a, какая разница как переменную назвать.

Просто массивы обычно называют arr, если он ничего такого по смыслу не хранит