Составить программу вычисляющую куб максимального элемента в массиве

@1gor3k · Регистрация: 28.12.2017

Author24 — интернет-сервис помощи студентам

Привет, у меня тут дилемма .
Изучаю паскаль в 9 классе. Дали задание - "Составить программу вычисляющую куб максимального элемента в массиве". Я начал делать и у меня тут начались проблемы(выдает ошибки).Напишите в чем моя проблема в данном "коде" или как его тут называют.
Вот он

Pascal

Program max;
Uses crt;
Var 
 a:array [1..10] of integer;
 k,i:integer;
Begin
Clrscr;
Randomize;
 for i:=1 to 10 do 
Begin
 a[i]:=random(100);
 writeln('a[',i,']= ',a[i]);
end;
k:=1;
for i:=2 to 10 do 
if a[i]>a[k] then k:=i;
k=max*max*max
writeln('Квадрат o элемента =',a[k]);
End.

@1gor3k · 28.12.2017, 12:51 **[ТС]**

Ошибка в строке 18: встретилось 'writeln', а ожидалось ';'

@ZX Spectrum-128 · 28.12.2017, 13:10

Pascal

var
  a: array [1..10] of integer;
  max, i: longint;
 
begin
  Randomize;
  for i := 1 to 10 do 
  begin
    a[i] := random(100);
    write(a[i]:6);
  end;
  max := a[1];
  for i := 2 to 10 do 
    if a[i] > max then 
      max := a[i];
  writeln;
  writeln('Max: ', max);  
  max := max * max * max;
  writeln;
  writeln('Куб элемента =', max);
end.

@1gor3k 0 / 0 / 0 Регистрация: 28.12.2017 Сообщений: 2
	28.12.2017, 12:51 [ТС]	2
	Ошибка в строке 18: встретилось 'writeln', а ожидалось ';' 0

	28.12.2017, 13:10

Опции темы