Ввести элементы массива из 7 элементов. каждый элемент - вопрос №103904737 от wehter83 25.11.2021 15:00

Question

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

wehter83 · Answer

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.

Объяснение: