Question

Ввести элементы массива из 7 элементов. Каждый элемент уменьшить на один, вывести изменённый массив на экран. Определить сумму элементов измененного массива
2.Ввести элемент массива из 10 элементов. Сколько элементов массива имеют значение 10,20,30?
3.Ввести элементы массива из 8 элементов. Определить минимальное число, оканчивающееся на 7​

Answer 1

Ответ:

1.

program vlasov_loc;

   var i, s: integer;

   var a: array [1..7] of integer;

begin

   for i:= 1 to 7 do readln(a[i]);

   for i:= 1 to 7 do a[i]:= a[i] - 1;

   for i:= 1 to 7 do writeln ('a[', i,'] = ', a[i]);

   for i:= 1 to 7 do s:=s+a[i];

   writeln ('Сумма элементов нового массива - ', s)

End.

   

Объяснение: