запросить с клавиатуры массив из 10 целых элементов.Четные увеличить на 2,а нечетным присвоить 0 и вывести таблицу на экран
Ответы на вопрос
Ответил Maksim2009rus
0
const N = 10;
var
A: array [1..N] of integer;
i: integer;
begin
// Ввод и обработка массива
for i := 1 to N do begin
write('Введите ', i, ' элемент -> ');
readln(A[i]);
if (A[i] mod 2 = 0) then
A[i] += 2
else
A[i] := 0
end;
// Вывод полученного массива на экран
write('Массив: ');
for i := 1 to N do begin
write(A[i], ' ');
end;
end.
var
A: array [1..N] of integer;
i: integer;
begin
// Ввод и обработка массива
for i := 1 to N do begin
write('Введите ', i, ' элемент -> ');
readln(A[i]);
if (A[i] mod 2 = 0) then
A[i] += 2
else
A[i] := 0
end;
// Вывод полученного массива на экран
write('Массив: ');
for i := 1 to N do begin
write(A[i], ' ');
end;
end.
Ответил dianahasanova54
0
спасибооо
Новые вопросы
Русский язык,
2 года назад
Українська література,
2 года назад
Химия,
8 лет назад
Математика,
9 лет назад