fork download
copy 
  1. program ModifyArray;
  2.  
  3. const
  4.   n = 12; 
  5. var
  6.   arr: array[1..n] of integer;
  7.   i, maxEl, minEl: integer;
  8.  
  9. begin
  10.   writeln('Введіть ', n, ' елементів масиву:');
  11.   for i := 1 to n do
  12.     read(arr[i]);
  13.  
  14.  
  15.   maxEl := arr[1];
  16.   minEl := arr[1];
  17.   for i := 2 to n do
  18.   begin
  19.     if arr[i] > maxEl then
  20.       maxEl := arr[i];
  21.     if arr[i] < minEl then
  22.       minEl := arr[i];
  23.   end;
  24.  
  25.   for i := 1 to n do
  26.   begin
  27.     if arr[i] < 0 then
  28.     begin
  29.       if i mod 2 = 0 then
  30.         arr[i] := maxEl 
  31.       else
  32.         arr[i] := minEl; 
  33.     end;
  34.   end;
  35.  
  36.   writeln('Змінений масив:');
  37.   for i := 1 to n do
  38.     write(arr[i], ' ');
  39. end.
  40.  
Success #stdin #stdout 0.01s 5264KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Введіть 12 елементів масиву:
Змінений масив:
0 0 0 0 0 0 0 0 0 0 0 0
https://ideone.com/Y7Auz2
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!