Program znanija;var i,n:integer;a:array[1..10] of integer;beginfor i:=1 to 10 do begin writeln('Введите ',i,'-ый элемент массива'); read(a[i]); if a[i] mod 2 = 1 then a[i]:=a[i]+1; end;writeln;writeln; writeln('Новый массив:');for i:=1 to 10 do writeln(a[i],'(',i,')');end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
