1)Даны два массива A(10) и В(10) Нужно сформировать массив С(10) предварительно определив его длину, Включая из массивов А и В только четные по номеру элементов. И нужно вывести на экран массивы А(10), В(10), С(10). 2) Информац...

Question

1)Даны два массива A(10) и В(10) Нужно сформировать массив С(10) предварительно определив его длину, Включая из массивов А и В только четные по номеру элементов. И нужно вывести на экран массивы А(10), В(10), С(10). 2) Информац...

1)Даны два массива A(10) и В(10) Нужно сформировать массив С(10) предварительно определив его длину, Включая из массивов А и В только четные по номеру элементов. И нужно вывести на экран массивы А(10), В(10), С(10). 2) Информация о средней суточной температуре воздуха за месяц задана в виде массива. Определите и выведите на экран, сколько раз температура была ниже среднемесячной. помогите

Гость

Ответ(ы) на вопрос:

Accepted Answer

const N=10 var i,k:integer; A:array [1..N] of integer; B:array [1..N] of integer; C:array [1..N] of integer; begin for i:=1 to N do begin read(A[i]); end; k:=1; for i:=1 to N do begin if i mod 2=0 then C[k]:=A[i]; k:=k+1; end; for i:=1 to N do begin read(B[i]); end; for i:=1 to N do begin if i mod 2 = 0 then C[k]:=B[i]; k:=k+1; end; for i:=1 to N do begin write(A[i]); end; for i:=1 to N do begin write(B[i]); end; for i:=1 to N do begin write(C[k]); end;