урок 26 сентября

ССылка на дз 

Работа на уроке . Подготовка к практической

Чтобы решить задачу, то можно брать команды из шаблона (менять цифры) и собрать в Pascal

каждый файл сохранить на диске д, ученик 2025/2026 а своей папке под фам и номером задачи 

Шаблоны команд

//фам 1            

var A:  array[1..8] of integer;  { описание массива }

 i, s :  integer ;     { описание переменных }

d  :real  ;     { описание переменных }

begin

for I := 1 to 5 do read (a[i]); { заполнение массива c клавиатуры} присуствует во всех задачах

s:=1  ; {первоначальное значение суммы s при произведении чисел}

s:=0 ;  {первоначальное значение суммы s при вычислении суммы чисел}

d:= A[2] /A[3] ; { нахождение результата деления 2 элемента на  3-ий}

s:= A[2] *A[3] ; { нахождение результата умножения 2 элемента на  3-ий}

write(s, ' , '  )  ; {вывод результата }

for i:=1 to 5 do A[i]:= A[i] /3 ; {Уменшение каждого элемента массива в 3 раза}

for i:=1 to 5 do A[i]:= A[i] +2; {Увел каждого элемента массива на 2}

For i:=1 to 5 do write(a[i], ' , '  ); { вывод всех чисел через запятую }

For i:=1 to 5 do writeln(a[i]  ); { вывод всех чисел c новой строки }

for i:=1 to 5 do A[i]:= -7; {замена каждого элемента массива на -7}

for i:=1 to 5 do s:= s+A[i]; {нахождение суммы элемов массива}

End.