Решение квадратных уравнений в кумире

1.выберете «запустить»

 

2. если у вас windows 7 или vista, то потребуется подтверждение на установку кумира:

 

3. дальше «согласитесь» с последующими запросами:

 

 

 

 

 

4.идет установка. дождитесь окончания:

 

 

 

5.можно запускать кумир:

ответ: Программа рабочая, проверена.

Program zadacha;

var  

 a: array [1..50] of integer; // размерность массива = 50

 i,k: integer;

begin

begin

 for i:=1 to 50 do

   a[i] := Random(100); // числа от 0 до 100 будут присутствовать в массиве

 writeln('Заполненный массив: ');

 for i:=1 to 50 do

   write(a[i],' '); end; // выводим массив на экран до проверки

writeln; //новая строка

writeln('Введите значение числа K: '); readln(k);

writeln('Элементы массива, кратные K:');

for i:=1 to 50 do

if (a[i] mod k = 0) then write(a[i],' ');  

end.

Объяснение:

i - порядковый номер элемента

a - сам массив

k - вводимое число

В остальном оставила комментарии.

Размерность массива и его диапазон указан в программе числами, т.к. в задаче не было во о вводе элементов или вводе размерности.

begin

   var (строк, столбцов) := ReadInteger2('Введи N и M:');

   Writeln('Введите элементы массива построчно');

   var массив := ReadMatrReal(строк, столбцов);

   массив.ElementsByRow.Min.Print

end.

===== Так писали наши деды =====

const

 nn = 50;

 mm = 50;

 

var

 i, j, n, m, min : integer;

 a: array[1..nn, 1..mm] of integer;

begin

 Write('Введи N и M: ');

 Read(n, m);

 Writeln('Введите элементы массива построчно');

 min := 32767;

 for i := 1 to n do

   for j := 1 to n do

   begin

     Read(a[i,j]);

     if a[i,j] < min then

       min := a[i,j]

   end;

 Write(min)

end.