Page
интегрированной
Up
среды
[3]
age
own
3. Запишите код программы с операторов
программирования для заданного алгоритма.
Алг Пример
Код программы
Нач
х=5
y=-6
если (х вывод (2)
кон алг
4. Покажите запись следующих математических выражений на языке программирования: [3]
4. Y = 5х + 3
5. Х = х2 +х+1.
6. Y= x(5+1)
7. Z = 1,
8. Х равен остатку от деления 19 на 5:
9. Z равен частному (целое) от деления 18 на

КОД в Turbo Pascal

USES CRT;
VAR A:array[1..5,1..5] of integer;   
           i,j,min,s:integer;
BEGIN
CLRSCR;
Randomize; 
{заполняем массив случайными числами от 0 до 10}
for i:=1 to 5 do   
   for j:=1 to 5 do     
   A[i,j]:=random(10); 

{Выводим массив на экран} 
  for i:=1 to 5 do   
    begin   
      for j:=1 to 5 do     
         Write(A[i,j]:2, '   ');   
    Writeln;   
    end;

min:=A[1,1]; {Присваиваем минимальному значению первый элемент массива}   
 
{Ищем минимальный элемент в массиве} 
for i:=1 to 5 do     
   for j:=1 to 5 do     
       if A[i,j]<min then min:=A[i,j];

Writeln('Минимальный элемент в данном массиве = ',min);

{Обнуляем счетчик} 
s:=0;

{Считаем сколько минимальных элементов в каждой строке и выводим на экран}

for i:=1 to 5 do   
   begin     
      for j:=1 to 5 do       
         if A[i,j]=min then s:=s+1;     
      Writeln('В ',i,' строке минимальный элемент встечается ',s,' раз');                  s:=0;   
end;

READLN;
END.

//Pascal ABC.NET v3.0 сборка 1111

Const
 s=5;

Var
 ar:array[1..s] of integer;
 n,m,i:integer;
begin
 writeln('N');
 readln(n);
 writeln('M');
 readln(m);
 writeln('Array:');
 for i:=1 to s do
   readln(ar[i]);
 writeln('First array:');
 for i:=1 to s do
  begin
   write(ar[i]:4);
   if ar[i] div n<>0 then ar[i]:=ar[i]+m;
  end;
 writeln;
 writeln('Final array:');
  for i:=1 to s do
   write(ar[i]:4);
end. 

Пример ввода:
3
3
1
2
3
4
5
Пример вывода:
First array:
   1   2   3   4   5
Final array:
   1   2   6   7   8

//Блок-схема во вложении