Написать программу, которая запрашивает массив из N элементов и увеличивает все элементы...

Question

Написать программу, которая запрашивает массив из N элементов и увеличивает все элементы массива на максимальный элемент. Протестировать программу на массивах размерностью 8 и 10 элементов.

Answer 1

Вот что получилось:

uses Crt;
const n = 10;
var A: array [1..n] of integer;   
 i, max: integer;
begin 
ClrScr;  
Randomize; 
max:=-1*maxint;
WriteLn ( ' Massiv I: '); 
for i:=1 to n do 
begin
     A[i] := 1+random(10);
    Write (A[i]:4);
     if A[i]>max then max:=A[i] ; 
end;
WriteLn; WriteLn; WriteLn (' Max = ', max);
 WriteLn; WriteLn ( ' Massiv II: ');
 for i:=1 to n do
   begin     
      A[i]:=A[i]+max;
      Write (A[i]:5);
   end;
ReadLn;
end.

---

---

Comments

спасибо большое
можете посоветовать литературу по самообучению- с учительнцей не сложилось

---

ClrScr что это такое, что обозначает?

---

СlrScr   -  это очистка экрана. Иногда трудно увидеть на экране результат работы программы - а с этим оператором очень удобно читать результаты. Но он работает, если написана первая строка: uses Crt;  - вызов специального модуля, который отвечает за экран, клавиатуру, звук и т. д.  А насчет литературы трудно Вам посоветовать - ее МОРЕ. Но лучше начинать с книжек ПАСКАЛЬ для чайников.  (Это не к Вам, это так официально книжки называются ... : )))

---

спасибо еще раз