Определить число элементов массива, значение каждого из которых принадлежит интервалу -20 ..+20

@tanyhaftv · Регистрация: 09.03.2010

Задан одномерный целый массив A, количество элементов которого не определено, но указан конец данных с помощью знака /*. Определить число элементов массива, значение каждого из которых принадлежит интервалу -20 ..+20.

---
Mawrat: tanyhaftv, как я понимаю, массив описан так:

Delphi

1 2	const N := ...; var Arr : array[1..N] of String;

Или так:

Delphi

1	var Arr : array of String;

Элементы массива содержат строковые представления целых чисел. Элемент со значением '/*' обозначает конец набора. Надо определить количество элементов, которым соответствуют целые числа из диапазона: -20..+20.

@JIomaka · 14.06.2011, 22:10

Наверно так.

Delphi

program lab;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const
  N = 10;
 
var
  Arr: array [1 .. N] of String;
  i, j, k: Integer;
 
begin
  k := 0;
  writeln('Zapolnite massiv:');
  for i := 1 to N do
  begin
    readln(Arr[i]);
    if Arr[i] = '/*' then
      break;
  end;
  writeln;
  for j := 1 to i - 1 do
    if (StrToInt(Arr[j]) >= -20) and (StrToInt(Arr[j]) <= 20) then
      inc(k);
  writeln(k);
  readln;
 
end.

Опции темы