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