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

July 2022 2 4 Report

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

Sky09 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.

1 votes Thanks 1

bridgelin2 Благодарю.

Bakalavr 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 votes Thanks 1

bridgelin2 Спасибо.

Answers & Comments

massiv fzapolnen kubami pervyh 10 naturalnyh chiselvstavit na 3 mestokvadra

reshite pozhalujsta uravnenie trebuetsya polnyj hod resheniyasin3x 3cosx 1

reshite pozhalujsta uravnenie trebuetsya poshagovoe resheniesinx 1cosx2

texreshite pozhalujsta uravneniedaa15b36a9c6bbcaf3d6dab47a6ddae2 1045

reshite pozhalujsta zadachu po biologiiv seme rodilsya goluboglazyj tyomnovolosyj

osnovanie pryamoj prizmy romb so storonoj 5sm i tupym uglom 120 gradusov bokov

1 for i 0 to 15 do ai i1 for i 0 to 14 do ai ai1zadanie

1dan massiv zapolnennyj sluchajnym obrazom polozhitelnymi chislami v massive 1

рекомендуемые вопросы

Helpful Links

Helpful Social