Burizel
4 год назад
Дан массив из n элементов.Написать программу, уменьшающую все элементы массива на еденицу
ОТВЕТЫ
German
Oct 24, 2020
A: array [1..10] of integer;
i, n: integer;
for i := 1 to 10 do
begin
write('Введите A[', i, '] = ');
readln(A[i]);
end;
writeln('Ваш массив.');
for i := 1 to 10 do
write(A[i]:4);
writeln('Все элементы массива были уменьшены на 1.');
for i := 1 to 10 do
begin
A[i] := A[i] - 1;
write(A[i]:4);
end;
- Блин, есть строки, которые мы даже еще не учили(
45
Смежные вопросы: