Информатика Задание 13

С учетом того, что описания переменных выглядят так:

var

n, k : integer; R : real;

укажите неверно записанные операторы. ответ обоснуйте.

n := k mod 5;

k := R + 1;

n := 21 div 6;

R := SQRT (n);

3. Задание 13

Что будет выведено на экран после выполнения операторов:

n := 15; k := 1 / 2;

n := SQR(15)*k;

k := n + k;

Writeln ('n =', n:8:2);

Writeln ('k = ', k:9:3);

Відповідь:

#include <stdio.h>

#include <locale>

using namespace std;

int main(){

setlocale(LC_ALL , "Rus");

int N,min;

printf("Введите положительное число N: ");

scanf("%d", &N);

int arr[N];

if(N < 1){

 printf("Число не положительное или равно нулю");

 return 1;

}

for(int i = 0 ; i < N; i++){

 printf("Введите число от 0 до 100:");

 scanf("%d" , &arr[i]);

 

 if(arr[i] < 0 || arr[i] > 100){

  printf("Число не входит в диапазон от 0 до 100");

 }

 

 

}

for(int i = 0; i < N; i++){

 min = arr[0];

 if(arr[i] < arr[0]){

  min = arr[i];

 }

}

   

printf("Наименьшее число из введенных = %d",min);

return 0;

}

Пояснення:

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var V:=MatrRandom(7,7,-15,15);v.Println;
var com:= V.Row(2).Aggregate(BigInteger(1),(x,y)->(x*y));
Writeln('Произведение эл-в 3ей строки = ', com);
var cnt := 0;
Foreach var x in V.Row(2) do
  if x > com then inc(cnt);
Writeln('Количество элементов, больших чем это произведение = ', cnt);
Writeln('Максимальный элемент 3го столбца = ', V.Col(2).Max);
end.

Пример:
    2  -4 -15  10  -1   2   6
  15  -8  11   5  14  10  15
   0  15 -10  13  -8 -13  14
  14   6  13 -10   9   6 -12
 -14   1   8  -9   1 -12  12
  15   9  10  -7 -14   6  -3
   9   9  -1 -14   1   1   3
Произведение эл-в 3ей строки  = 0
Количество элементов, больших чем это произведение = 3
Максимальный элемент 3го столбца = 13

Правил