fork download 
  1. program DecreaseArrayByMin;
  2. var
  3.   A1: array[1..5] of Integer = (8, 3, 5, 2, 7);
  4.   A2: array[1..5] of Integer = (6, 9, 2, 4, 1);
  5.   i, min1, min2: Integer;
  6. begin
  7.   { Знаходимо мінімальні елементи }
  8.   min1 := A1[1];
  9.   for i := 2 to 5 do
  10.     if A1[i] < min1 then min1 := A1[i];
  11.  
  12.   min2 := A2[1];
  13.   for i := 2 to 5 do
  14.     if A2[i] < min2 then min2 := A2[i];
  15.  
  16.   { Зменшуємо всі елементи }
  17.   for i := 1 to 5 do
  18.   begin
  19.     A1[i] := A1[i] - min1;
  20.     A2[i] := A2[i] - min2;
  21.   end;
  22.  
  23.   writeln('=== Завдання 2.2 ===');
  24.   writeln('Масив A1 після зменшення:');
  25.   for i := 1 to 5 do
  26.     write(A1[i], ' ');
  27.   writeln;
  28.  
  29.   writeln('Масив A2 після зменшення:');
  30.   for i := 1 to 5 do
  31.     write(A2[i], ' ');
  32.   writeln;
  33. end.
  34.  
Success #stdin #stdout 0s 5312KB
comments (?)
stdin 
Standard input is empty
stdout 
=== Завдання 2.2 ===
Масив A1 після зменшення:
6 1 3 0 5 
Масив A2 після зменшення:
5 8 1 3 0
https://ideone.com/1uYfRt
language:
Pascal (fpc 3.0.4)
created:
10 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!