заполнить массив случайными числами в интервале [2;-2] и ...

Question

заполнить массив случайными числами в интервале [2;-2] и ...

Сергей

заполнить массив случайными числами в интервале [2;-2] и подсчитать количество положительных элементов

Есть ответ

17.12.2022

432

Ответ

Answer 1 · 17.12.2022

Паскаль

____________

uses crt;varmin,k, i , n : integer;m: array [1..100] of integer;beginrandomize;n:= 5;for i:= 1 to n dom[i]:= random (5)-2;for i:= 1 to n dowrite (m[i],' ');for i:= 1 to n doif m[i]>0 then k:= k+1;writeln ;writeln (k);readkey;end.

заполнить массив случайными числами в интервале [2;-2] и ...

заполнить массив случайными числами в интервале [2;-2] и подсчитать количество положительных элементов

Ответ

Паскаль ____________ uses crt;varmin,k, i , n : integer;m: array [1..100] of integer;beginrandomize;n:= 5;for i:= 1 to n dom[i]:= random (5)-2;for i:= 1 to n dowrite (m[i],' ');for i:= 1 to n doif m[i]>0 then k:= k+1;writeln ;writeln (k);readkey;end.

Паскаль

____________

uses crt;varmin,k, i , n : integer;m: array [1..100] of integer;beginrandomize;n:= 5;for i:= 1 to n dom[i]:= random (5)-2;for i:= 1 to n dowrite (m[i],' ');for i:= 1 to n doif m[i]>0 then k:= k+1;writeln ;writeln (k);readkey;end.