fork download
copy 
  1. program Task1;
  2. uses crt;
  3.  
  4. const
  5.   SIZE = 12;
  6.  
  7. var
  8.   arr: array[1..SIZE] of integer;
  9.   i, maxElem, minElem: integer;
  10.  
  11. begin
  12.   randomize;
  13.  
  14.   { Заповнення масиву випадковими значеннями від -20 до 20 }
  15.   writeln('Початковий масив:');
  16.   for i := 1 to SIZE do
  17.   begin
  18.     arr[i] := random(41) - 20; { Генеруємо числа в діапазоні -20 до 20 }
  19.     write(arr[i], ' ');
  20.   end;
  21.   writeln;
  22.  
  23.   { Знаходимо максимальний і мінімальний елементи }
  24.   maxElem := arr[1];
  25.   minElem := arr[1];
  26.  
  27.   for i := 2 to SIZE do
  28.   begin
  29.     if arr[i] > maxElem then
  30.       maxElem := arr[i];
  31.     if arr[i] < minElem then
  32.       minElem := arr[i];
  33.   end;
  34.  
  35.   { Замінюємо від’ємні числа }
  36.   for i := 1 to SIZE do
  37.   begin
  38.     if arr[i] < 0 then
  39.     begin
  40.       if (i mod 2 = 0) then
  41.         arr[i] := maxElem  { Парний індекс → заміна на maxElem }
  42.       else
  43.         arr[i] := minElem; { Непарний індекс → заміна на minElem }
  44.     end;
  45.   end;
  46.  
  47.   { Вивід оновленого масиву }
  48.   writeln('Оновлений масив:');
  49.   for i := 1 to SIZE do
  50.     write(arr[i], ' ');
  51.  
  52.   writeln;
  53. end.
  54.  
Success #stdin #stdout 0s 5288KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Початковий масив:
-8 20 15 -1 12 16 4 17 -10 -19 -2 19 
Оновлений масив:
-19 20 15 20 12 16 4 17 -19 20 -19 19
https://ideone.com/4fqDS7
language:
Pascal (fpc 3.0.4)
created:
5 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!