Информатика паскаль помогите

Question

Информатика паскаль помогите

Иван Дремов Ученик (154), закрыт 1 месяц назад

const
N = 10;

var

i, k: integer;
A: array [1..N] of integer;

begin
Randomize;
writeln('Исходный массив:');
for i := 1 to N do
begin
A[i] := random(10);
write(A[i],' ');
end;
writeln;
k := 0;
for i := 1 to N do
if A[i] mod 2<>0 then k:=k+1;
writeln('Кол-во четны
х эл-ов: ', k);
end.
Нужно что бы четные элементы массива увеличивались в 4 раза, а положительные уменьшались в 6 раз, как сделать хелп.

Answer 1

А сделать-то что надо? Вот пример:

 uses crt; 
const N = 10; 
var i, k: integer; 
A: array [1..N] of integer; 
 
procedure print(); 
begin 
  for i := 1 to N do write(A[i], ' '); 
  writeln() 
end; 
 
begin 
  textbackground(lightcyan); 
  textcolor(red); 
  clrscr(); 
  randomize(); 
  writeln('Исходный массив:'); 
  for i := 1 to N do A[i] := random(10); 
  print(); 
  for i := 1 to N do 
    if not odd(A[i]) then A[i]:=A[i]*4; 
  print() 
end.

Здесь всё понятно - чётные элементы случайным образом сформированного целочисленного массива увеличиваются в четыре раза. А что делать, когда число одновременно и чётное, и положительное - умножать или делить? А если положительное чётное число два разделить на шесть, то что будет как не ⅓? И как такое дробное число впишется в целочисленный массив? Техзадание сформулируйте нормально!

Answer 2

В цикле обхода сделай проверку на чётность и на положительность.