Заполнить массив

@abibas · Регистрация: 11.06.2010

Author24 — интернет-сервис помощи студентам

Никак не получается решить.

Написать программу, заполняющую массив A [1..10] по следующему правилу A [N]:= B [N] + C [N]. Массивы B и C заполнены произвольными числами. B Є [5; 25], C Є [3; 30].

@Lyohich84 · 12.06.2010, 08:31

Pascal

uses crt;
var
a:array[1..10] of integer;
b:array[1..10] of integer;
c:array[1..10] of integer;
n:integer;
 
begin
clrscr;
randomize;
for n:=1 to 10 do
 b[n]:=5+random(21);
for n:=1 to 10 do
 c[n]:=3+random(28);
writeln('Massiv B');
for n:=1 to 10 do
 write (b[n]:4);
writeln;
writeln('Massiv C');
for n:=1 to 10 do
 write (c[n]:4);
writeln;
for n:=1 to 10 do
 a[n]:=b[n]+c[n];
writeln('Massiv A');
for n:=1 to 10 do
 write(a[n]:4);
readln
end.

@abibas 1 / 1 / 0 Регистрация: 11.06.2010 Сообщений: 14
		1
	Заполнить массив 11.06.2010, 22:59. Показов 1330. Ответов 1 Метки нет (Все метки) Никак не получается решить. Написать программу, заполняющую массив A [1..10] по следующему правилу A [N]:= B [N] + C [N]. Массивы B и C заполнены произвольными числами. B Є [5; 25], C Є [3; 30]. 0

	12.06.2010, 08:31

Заполнить массив

Решение