fork download
copy 
  1. program ReplaceNegativeElements;
  2. const
  3.   N = 12;
  4. var
  5.   arr: array[1..N] of integer;
  6.   i, maxElem, minElem: integer;
  7. begin
  8.   writeln('Введіть ', N, ' елементів масиву:');
  9.   for i := 1 to N do
  10.     read(arr[i]);
  11.  maxElem := arr[1];
  12.   minElem := arr[1];
  13.   for i := 2 to N do
  14.   begin
  15.     if arr[i] > maxElem then
  16.       maxElem := arr[i];
  17.     if arr[i] < minElem then
  18.       minElem := arr[i];
  19.   end;
  20.  for i := 1 to N do
  21.   begin
  22.     if arr[i] < 0 then
  23.     begin
  24.       if i mod 2 = 0 then
  25.         arr[i] := maxElem
  26.       else
  27.         arr[i] := minElem;
  28.     end;
  29.   end;
  30. writeln('Модифікований масив:');
  31.   for i := 1 to N do
  32.     write(arr[i], ' ');
  33.   writeln;
  34. end.
Success #stdin #stdout 0s 5292KB
comments (?)
stdin
copy 
1  3 -6 9 0 -10 7 -23 8 -13
stdout
copy 
Введіть 12 елементів масиву:
Модифікований масив:
1 3 -23 9 0 9 7 9 8 9 0 0
https://ideone.com/wb8snO
language:
Pascal (fpc 3.0.4)
created:
13 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!