Разделить массив, заполненный случайным образом только положительными числами, на два - четных и нечетных. Составить блок схему и написать программу.

+ 0 -

Fidanahmedova

30 окт. 2014 г., 20:56:01 (9 лет назад)

uses crt;
const n=10;
var a,b,c: array [1..n] of integer;
    x,y,z,k: integer;
begin
     y:=0;
     z:=0;
     for x:=1 to n do begin
         a[x]:=random(100)+1;
         if a[x] mod 2=0 then begin
            inc(y);
            b[y]:=a[x];
            end
            else begin
                 inc(z);
                 c[z]:=a[x];
            end;
         write(a[x]:4);
     end;
     writeln;
     k:=y;
     for y:=1 to k do
         write(b[y]:4);
     writeln;
     k:=z;
     for z:=1 to k do
         write(c[z]:4);
end.

+ 0 -

TanyaShlapak98

30 окт. 2014 г., 23:33:33 (9 лет назад)

program test;
var i,k,z:integer;
m:array[1..100] of integer;
c:array[1..100] of integer;
n:array[1..100] of integer;
begin
randomize;
for i:=1 to 10 do
begin
m[i]:=random(1000); 
if m[i] mod 2 =0  then 
begin 
k:=k+1; 
c[k]:=m[i]; 
end 
else 
begin  z:=z+1; 
n[z]:=m[i]; 
end;
end;
for i:=1 to z do
write('     НЕЧЕТНЫЕ',n[i]);
writeln();
writeln();
for i:=1 to k do
write('      ЧЕТНЫЕ',c[i]);
end.

+ 0 -

Smileos

31 окт. 2014 г., 1:57:02 (9 лет назад)

паскаль?

+ 0 -

336

31 окт. 2014 г., 3:01:17 (9 лет назад)

Да, паскаль.

+ 0 -

Koroleva56

31 окт. 2014 г., 5:22:11 (9 лет назад)

А массив одномерный?

+ 0 -

Kolbina

31 окт. 2014 г., 7:23:43 (9 лет назад)

Да, одномерный.

+ 0 -

Iuliaaa

31 окт. 2014 г., 9:15:54 (9 лет назад)

разве решение неправильная?