Програмування масивів, Детальна інформація
Програмування масивів
2.2. Заповнення елементів масиву випадковими цілими числами. Числа беруться з діапазону [0, 99].
randomize;
for i:=1 to n do a[i]:=random(100);
2.3. Форматний друк елементів масиву .
for i:=1 to n do write(a[i]:4);
writeln
Далі розглянемо типові алгоритми опрацювання масивів.
2.4. Пошук найменшого елемента масиву
Program pr1;
Uses crt;
const n=20;
type massiv=array[1..n] of integer;
var
a:massiv;
i:integer;
min:integer;
begin
clrscr;
randomize;
for i:=1 to n do a[i]:=random(100);
writeln(‘Вихідні дані’);
for i:=1 to n do write(a[i]:4);
writeln;
min:=a[1];
for i:=2 to n do if a[i]
writeln(‘Результат’);
writeln(‘Найменший елемент min=’, min:4);
end.
randomize;
for i:=1 to n do a[i]:=random(100);
2.3. Форматний друк елементів масиву .
for i:=1 to n do write(a[i]:4);
writeln
Далі розглянемо типові алгоритми опрацювання масивів.
2.4. Пошук найменшого елемента масиву
Program pr1;
Uses crt;
const n=20;
type massiv=array[1..n] of integer;
var
a:massiv;
i:integer;
min:integer;
begin
clrscr;
randomize;
for i:=1 to n do a[i]:=random(100);
writeln(‘Вихідні дані’);
for i:=1 to n do write(a[i]:4);
writeln;
min:=a[1];
for i:=2 to n do if a[i]
writeln(‘Результат’);
writeln(‘Найменший елемент min=’, min:4);
end.
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021