воскресенье, 8 октября 2017 г.

Урок 9 октября

Пример задачи
Дан массив D, состоящий из 5 элементов. На-ть программу, уменьшаемый каждый элемент на 4 
        
var A:  array[1..5] of integer;  i :  integer ;     { описание переменных }
begin
for I := 1 to 5 do read (a[i]);  { заполнение массива c клавиатуры}
for i:=1 to 5 do A[i]:= A[i]-4; {уменьшение каждого элемента массива на 4}
For i:=1 to 5 do write(А[i], '  ,'); { вывод всех чисел через  , }
End.

Комментариев нет:

Отправить комментарий

Решение задач к практической работе 15-19 октября

Увеличить каждый элемент массива на 2  program aaa; var h: array[1..5] of integer;  i:integer; begin       for i:=1 to 5 do    ...