Ввести элементы массива из 7 элементов. каждый элемент уменьшить на один, вывести изменённый массив на экран. определить сумму элементов измененного массива
2.ввести элемент массива из 10 элементов. сколько элементов массива имеют значение 10,20,30?
3.ввести элементы массива из 8 элементов. определить минимальное число, оканчивающееся на 7
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.
Объяснение: