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

ССылка на дз 

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

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

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

Дан массив A из 5 целых элементов.

1. Дан массив A из 5 целых элементов. Посчитать сумму 1и 4 элементов    Вывести результат.
2. Дан массив A из 5 целых элементов.  Посчитать произведение  2 и 5 элементов   Вывести результат.
3. Дан массив A из 5 вещественных элементов. Посчитать разность 3 и 4 элементов  Вывести результат.
4. Дан массив A из 5 целых элементов. Посчитать сумму всех элементов массива Вывести результат.
5. Дан массив A из 5 целых элементов. Посчитать произведение всех элементов массива.Вывести результат.
6. Дан массив A из 5 целых элементов. Каждый  элемент увеличить на 2 и вывести через пробел
7. Дан массив A из 5 целых элементов. Каждый  элемент увеличить в 3 и вывести через точку с запятой
8. Дан массив A из 5 вещественных элементов. Каждый  элемент уменьшить в 2 и вывести с новой строки
9. Дан массив A из 5 целых элементов. Каждый  элемент заменить  на 4 и вывести через пробел

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

//фам 1            

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

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

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

begin

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

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}

End.