Опубликовано 4 года назад по предмету Информатика от bkmyehf

Дан массив A из 100 элементов. Если сумма элементов чѐтная, заменить все положительные чѐтные элементы – нулями, иначе – переставить местами первый и последний элемент.

Ответ

Ответ дан Alphaeus

Program bkmyehf;
const n=100;
var a:array[1..n] of integer;
temp,sum, i,j: integer;
begin
sum:=0;
randomize;
writeln('*** alphaues is thinking... ***');
for i:=1 to n do
    begin
      a[i]:=random(100)+1;
      sum:=sum+a[i];
    end;
if sum mod 2 = 0 then
    begin
      writeln('Сумма элементов чётная');
      for i:=2 to n do
        begin
          if (a[i]>0) AND (i mod 2 = 0) then a[i]:=0;
        end;
    end
    else
    begin
      writeln('Сумма элементов нечётная');
      temp:=a[1];
      a[1]:=a[i];
      a[i]:=a[1];
    end;
for i:=0 to 9 do
    begin
      for j:=1 to 10 do
        write(a[i*10+j]:4);
      writeln();
    end;
end.

Другие вопросы

Математика - 1 неделя назад

10 сентября был вторник. в какой день недели выпадает 13 августа в этом году?

Математика - 2 недели назад

На 9 машинах доставили 47700 кг зерна, сколько зерна могут перевезти 12 таких машин?

Математика - 2 недели назад

Масса слона на 24т700кгменьше массыкитакаковамассакита если масса слона 5т 800кг

Физика - 2 недели назад

Рассчитать среднюю скорость: s = 16 км t = 18 мин. ответ в м/с и в км/ч

Физика - 2 недели назад

Сколько часов и минут в -1,3ч и -2,75ч