Narrow Default Wide
Blue Colour Green Colour Orange Colour Red Colour

Государственное бюджетное общеобразовательное учреждение

средняя общеобразовательная школа № 356

с углубленным изучением немецкого и английского языков

Московского района Санкт-Петербурга

 

Примеры работы с массивами Pascal



//Пример создания массива и ввода данных в него
program massiv;

var
  mas: array[1..10]of integer;
  i, j, sum, min, so, kp, k45: integer;

begin
  //Ввод с клавиатуры элементов массива
  for i := 1 to 10 do
  begin write('mas[i', i, ']=');readln(mas[i]); end;
 
 //поиск минимального значения в массиве
  min := mas[i];     //предположим
  for i := 2 to 10 do
    if mas[i] < min then min := mas[i];  //Значит нашли элемент,который ещё меньше
  writeln('Минимальный элемент равен ', min);

  //Посчитаем количество положительных элементов массива
  kp := 0;
  for i := 1 to 10 do
    if mas[i] > 0 then kp := kp + 1;
  writeln('Количество положительных элементов = ', kp);

   //узнаем есть ли в массиве числа равные 10
  kp := 0; //Преположим,что нет
   //Проверим
  for i := 1 to 10 do
    if mas[i] = 10 then kp := 1;//не 0
  if kp = 0 then writeln('В этом массиве нет  числа = 10')
  else  writeln('В этом массиве есть число равное 10');

  //Сколько в массиве элементов кратных 4 и 5
  k45 := 0;
  for i := 1 to 10 do
    if (mas[i] mod 4 = 0) or (mas[i] mod 5 = 0) then
      k45 := k45 + 1;
  writeln('В этом массиве ', k45, ' элементов кратных 4 и 5');
  
end.