Задание: распечатать массивы в две строки, один под другим

Алан1114 · 30.01.2014, 20:34

program Massiv; var a: array [1..10] of integer; b: array [1..10] of integer; N:integer; j:integer; // переменная для подсчета размера нового массива i:integer; // счетчик в цикле begin // ввод размера масива writeln('Введите N (N<=10)'); readln(N); writeln('Значения массива А'); // ввод значений масива for i:=1 to n do begin write('a[',i,']=');readln(A[i]); end; // решение j:=0; // начальное значение размера нового массива for i:=1 to n do begin // цикл для обхода массива if (a[i] mod 2)=0 then // условие для фор\мирования нового массива begin inc(j); // увеличение размера формирующегося массива b[j]:=a[i]; // присвоение значения элементу массива b end; end; // вывод результата Writeln('Ответ'); Writeln('Размер полученного массива ',j); Write('B[]: '); for i:=1 to j do Write(B[i],' '); end.Введите N (N<=10)
10
Значения массива А
a[1]=2
a[2]=4
a[3]=1
a[4]=3
a[5]=7
a[6]=8
a[7]=5
a[8]=9
a[9]=6
a[10]=10
Ответ
Размер полученного массива 5
B[]: 2 4 8 6 10

shrek=) · 31.01.2014, 11:08

Код:

var
a,b:array [1..10] of integer;
j,i:integer;
begin
randomize;
j:=1;
write('A=');
for i:=1 to 10 do begin
a[i]:=random(20)-10;
if (a[i]<>0) and (a[i] mod 2 = 0) then begin
b[j]:=a[i];
inc(j);
end;
write(a[i]:6);
end;
writeln;
write('B=');
for i:=1 to j-1 do
write(b[i]:6);
readln
end.

30.01.2014, 20:34	#1 (permalink)
Алан1114 Новичок Регистрация: 28.01.2014 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Задание: распечатать массивы в две строки, один под другим program Massiv; var a: array [1..10] of integer; b: array [1..10] of integer; N:integer; j:integer; // переменная для подсчета размера нового массива i:integer; // счетчик в цикле begin // ввод размера масива writeln('Введите N (N<=10)'); readln(N); writeln('Значения массива А'); // ввод значений масива for i:=1 to n do begin write('a[',i,']=');readln(A[i]); end; // решение j:=0; // начальное значение размера нового массива for i:=1 to n do begin // цикл для обхода массива if (a[i] mod 2)=0 then // условие для фор\мирования нового массива begin inc(j); // увеличение размера формирующегося массива b[j]:=a[i]; // присвоение значения элементу массива b end; end; // вывод результата Writeln('Ответ'); Writeln('Размер полученного массива ',j); Write('B[]: '); for i:=1 to j do Write(B[i],' '); end.Введите N (N<=10) 10 Значения массива А a[1]=2 a[2]=4 a[3]=1 a[4]=3 a[5]=7 a[6]=8 a[7]=5 a[8]=9 a[9]=6 a[10]=10 Ответ Размер полученного массива 5 B[]: 2 4 8 6 10 Миниатюры

31.01.2014, 11:08	#2 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	Код: var a,b:array [1..10] of integer; j,i:integer; begin randomize; j:=1; write('A='); for i:=1 to 10 do begin a[i]:=random(20)-10; if (a[i]<>0) and (a[i] mod 2 = 0) then begin b[j]:=a[i]; inc(j); end; write(a[i]:6); end; writeln; write('B='); for i:=1 to j-1 do write(b[i]:6); readln end.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070