Комментарии: Решаем задачи Абрамян на Паскале. Series35

Автор: Bronislav

Bronislav — Mon, 26 Feb 2018 08:58:32 +0000

//автоввод, pascalABC.net
begin
  var count:=0;
  write('введите кол-во наборов: ');
  var k:=ReadlnInteger('k =');
  for var i:=1 to k do
  begin
    var a:=ArrRandomInteger(20,0,10); a.Println;
    println('кол-во эл-ов в',i,'наборе',a.TakeWhile(t->t<>0).Count);
    count:=count+a.TakeWhile(t->t<>0).Count
  end;
  print('кол-во элементов во всех наборах =',count);
  readln;
end.

//автоввод, pascalABC.net

begin

var count:=0;

write('введите кол-во наборов: ');

var k:=ReadlnInteger('k =');

for var i:=1 to k do

begin

var a:=ArrRandomInteger(20,0,10); a.Println;

println('кол-во эл-ов в',i,'наборе',a.TakeWhile(t->t<>0).Count);

count:=count+a.TakeWhile(t->t<>0).Count

end;

print('кол-во элементов во всех наборах =',count);

readln;

end.

Автор: Bronislav

Bronislav — Mon, 26 Feb 2018 08:55:28 +0000

begin
  var count:=0;
  write('введите кол-во наборов: ');
  var k:=ReadlnInteger('k =');
  for var i:=1 to k do
  begin
    writeln('введите ',i,' набор:');
    var a:=ReadSeqIntegerWhile(t->t<>0).ToArray;
    println('кол-во эл-ов в',i,'наборе',a.Count);
    count:=count+a.Count
  end;
  print('кол-во элементов во всех наборах =',count);
  readln;readln;
end.

begin

var count:=0;

write('введите кол-во наборов: ');

var k:=ReadlnInteger('k =');

for var i:=1 to k do

begin

writeln('введите ',i,' набор:');

var a:=ReadSeqIntegerWhile(t->t<>0).ToArray;

println('кол-во эл-ов в',i,'наборе',a.Count);

count:=count+a.Count

end;

print('кол-во элементов во всех наборах =',count);

readln;readln;

end.