Ничего не происходит, когда жму ctrl+F9

@Vitaliksko · Регистрация: 11.12.2014

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

Вычислить произведение элементов одномерного массива. Нечего не происходит когда жму ctrl+F9

Pascal

Const n=20;
Type mas = array[1..n] of integer;
 
Var a:mas;
    i,x:integer;
    
BEGIN
  x:=1;
  for i:=1 to n do
    begin
      a[i]:=random(50)+1;
      write(a[i]:3);
      if i>a[i] then 
        x:=x*a[i];
    end;
  writeln;
  writeln(x);
END.

@vint-81 · 11.12.2014, 23:49

перед последним end добавьте

Pascal

readln;

@volvo · 11.12.2014, 23:57

Или сразу после нажатия Ctrl+F9 нажать Alt+F5 для просмотра результатов...

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	11.12.2014, 23:57	3
	Или сразу после нажатия Ctrl+F9 нажать Alt+F5 для просмотра результатов... 0