Сформировать массив, в элементах которого содержится количество 5 в трёх других массивах (процедуры)

@Юрий48 · Регистрация: 26.10.2013

Дано: L(6), X(8), Y(9). Сформировать массив Z (3), где Z (1)- количество чисел 5 в массиве L, Z (2)- количество чисел 5 в массиве X , Z (3) - количество чисел 5 в массиве Y. Вычисление количества чисел 5 в массиве оформить в виде подпрограммы.

@Svager · 25.04.2014, 19:28

как-то так, но можно лучше

Pascal

uses crt;
type mas=array[1..10] of integer;
var a,b,c,d:mas;
procedure invect(var x:mas;n:integer);
 var i:integer;
begin
 for i:=1 to n do
  x[i]:=random(i+n);
end;
procedure outvect(var x:mas;n:integer);
 var i:integer;
begin
 for i:=1 to n do
  write(x[i]:4);
end;
procedure newvect(var xa,xb,xc,x:mas;n,m,p:integer);
 var i,k,l,j:integer;
begin
k:=0;
 for i:=1 to n do
  begin
  if xa[i]=5 then
     inc(k);
  if xb[i]=5 then
   inc(j);
  if xc[i]=5 then
   inc(l);
  end;
 x[1]:=k;
 x[2]:=j;
 x[3]:=l;
end;
begin
 clrscr;
  writeln('Ïåðâûé ìàññèâ :');
   invect(a,6);
   outvect(a,6);
 writeln;
  writeln('Âòîðîé ìàññèâ :');
   invect(b,8);
   outvect(b,8);
 writeln;
  writeln('Òðåòèé ìàññèâ :');
   invect(c,9);
   outvect(c,9);
   newvect(a,b,c,d,6,8,9);
  writeln;
   writeln('Íîâûé ìàññèâ :');
    outvect(d,3);
 writeln;
 
 readkey;
end.

@Юрий48 2 / 0 / 0 Регистрация: 26.10.2013 Сообщений: 36
		1
	Сформировать массив, в элементах которого содержится количество 5 в трёх других массивах (процедуры) 25.04.2014, 19:10. Просмотров 1003. Ответов 1 Метки нет (Все метки) Дано: L(6), X(8), Y(9). Сформировать массив Z (3), где Z (1)- количество чисел 5 в массиве L, Z (2)- количество чисел 5 в массиве X , Z (3) - количество чисел 5 в массиве Y. Вычисление количества чисел 5 в массиве оформить в виде подпрограммы. 0

Опции темы

Сформировать массив, в элементах которого содержится количество 5 в трёх других массивах (процедуры)

Решение