Форум АНТИЧАТ - Показать сообщение отдельно - Студентам с лабораторными сюда

Цитата:

вот еще задача:
Даны целочисленные массивы S и T с разным количеством элементов. Найти количество элементов в этих массива равных первому элементу массива S. Ввод массивов выполнять в процедуре, а вычисление количества – в функции.

паскаля нет так что не проверял, но должно работать

Код:

 
program lab;

var
  S: array [1..10] of integer;
  T: array [1..15] of integer;

procedure Addarray;
var
  j: integer;
begin
  for j := 1 to 10
    S[j] := random[10];{заполнение}	
  for j := 1 to 15
    T[j] := random[10];{ещё одно =)}
end;

function GetCh: integer;
var
  c, i: integer;  
begin
  c := S[1];
  Result := 0;
  for i := 1 to 15 do
    if  T[i] = c then
      inc(Result);
end;

begin
  Addarray;
  writeLN("Kolichstvo=",GetCh);
end.