1. Заповнити масив з 20 елементів дійсними числами
(значення елементів - випадкові числа від [0..1])
і вивести масив по 4 елементи в рядку.
Programmassiv_1;
Usescrt;
Vara:array[1..20] of real ;
i:integer;
BEGINClrscr;
Randomize; - ініціалізація генератора випадкових чисел від 0 до 1
For i:=1 to20 do begin
а[i]:=random;
Write (а[i]:8:6,’ ‘);
Fori mod 4=0 then
Writeln;
End;
Readkey;
END.
2.Знайти Max і Min в двомірному масиві цілих чисел.
Заповнити масив випадковими числами в діапазоні [- 43 / 169]
Кількість рядків - 7, стовпців – 9.
Program massiv_2;
{ Заповнити 2-мірний масив цілих чисел випадковими числами в
діапазоні [-43;169].Кол-во рядків–7, к-ть стовпців–9. Знайти min, max}
Uses crt;
Const m=9; n=7;
Var a:array[1..m,1..n] of integer;
i,j,min,max:integer ;
BEGIN;Clrscr;
Randomize;
For i:=1 tom do
For j:=1 ton do
A[i,j]:=-43+random(213);
Min:=a[1,1];
Max:=min;
For i:=1 tom do
For j:=1 ton do begin
Ifа[i,j]>max then max:=a[i,j];
Ifа[i,j]<min then min:=a[i,j];
End;
Writeln(‘ Мин. елемент min=’,min:5,’ макс. елемент max=’,max:5);
Readkey;
END.
Завдання
Виконати постановку завдання для виконання завдання;
Створити блок-схему алгоритму рішення задачі;
Організувати заповнення масиву генератором випадкових чисел за допомогою операторів циклу.
Набрати операторів програми у вікні редактора;
Виконати програму.
