fork download
copy 
  1. program PositiveElementsChange;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   SysUtils;
  7.  
  8. const
  9.   MAX_SIZE = 100;
  10.  
  11. var
  12.   X: array[1..MAX_SIZE] of Integer;
  13.   N: Integer;
  14.   NegativeCount: Integer;
  15.   i: Integer;
  16.  
  17. begin
  18.   // Ввод размера массива
  19.   Write('Введите количество элементов массива (от 1 до 100): ');
  20.   ReadLn(N);
  21.  
  22.   // Ввод элементов массива
  23.   for i := 1 to N do
  24.   begin
  25.     Write('Введите элемент X[', i, ']: ');
  26.     ReadLn(X[i]);
  27.   end;
  28.  
  29.   // Обработка массива и подсчет отрицательных элементов
  30.   NegativeCount := 0;
  31.   for i := 1 to N do
  32.   begin
  33.     if X[i] > 0 then
  34.       X[i] := X[i] div i
  35.     else
  36.       Inc(NegativeCount);
  37.   end;
  38.  
  39.   // Вывод результатов
  40.   WriteLn('Изменённый массив:');
  41.   for i := 1 to N do
  42.     WriteLn('X[', i, '] = ', X[i]);
  43.  
  44.   WriteLn('Количество отрицательных элементов: ', NegativeCount);
  45.  
  46.   ReadLn;
  47. end.
  48.  
Success #stdin #stdout 0s 5272KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Введите количество элементов массива (от 1 до 100): Изменённый массив:
Количество отрицательных элементов: 0
https://ideone.com/TXea8K
language:
Pascal (fpc 3.0.4)
created:
8 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!