Ввести элементы массива из 7 элементов. каждый - вопрос №103904737 от LinkolnPark1 01.11.2021 16:41

Question

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

LinkolnPark1 · 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.

Объяснение: