Question

помогите! дана программа program summa_massiva; const m: array[1..6]of iteger =(67,23,-7,0,99,3); var i, summa :integer; begin summa:=0; for i:=1to6do summa:=summa+m[i]; write ('summa elementov =',summa); end. нужно добавить в эту программу задержку экрана,очистку экрана и подключить библиотеку

Answer 1

ClrScr; очистка экрана
Sleep(1000); в скобках время в миллисекундах - задержка
вставлять эти функции в тех местах, где это необходимо

Answer 2

спасибо большое

Answer 3

перед readln(m) нужно for i:=1 to 6 do

Answer 4

и выше нужно. в паскале массив заполняется в цикле

Answer 5

хорошо