Здравствуйте, что в этом коде на free pascal считает k?

Venerka13 9 нояб. 2020 г., 16:25:21

Кол - во чисел в массиве которые меньше их порядкового номера.

Komarik21 24 июл. 2020 г., 19:43:53 | 10 - 11 классы

Где ошибка?

Где ошибка?

Const n = 10 ; type TMas = array[1.

N] of integer ; var mas1 : TMas ; procedure ImputMas1(var masTMas : integer) ; var i : integer ; begin for i : = 1 to 10 do begin mas1[i] : = random(n) ; Write(mas1[i] : 3) ; end ; end.

Кувджулия 29 сент. 2020 г., 23:58:54 | 10 - 11 классы

Что озночают эти строки (Паскаль) : const n = 8 ; Type is = array [1?

Что озночают эти строки (Паскаль) : const n = 8 ; Type is = array [1.

N] of integer ; var a : is ; begin .

End.

Прыгайзайка 17 янв. 2020 г., 13:47:28 | 5 - 9 классы

Заполните пропуски в программе ввода и вывода 10 целочисленных элементов массива, заданных случайным образом на промежутке [20 ; 40] : Program gh ; var A : array[ 1?

Заполните пропуски в программе ввода и вывода 10 целочисленных элементов массива, заданных случайным образом на промежутке [20 ; 40] : Program gh ; var A : array[ 1.

___] of integer ; i : integer ; begin for i : = 1 to __ do begin A[i] : = random(___) + ____ ; write(____) ; end ; end.

Romanmedynskii 28 дек. 2020 г., 19:30:34 | 10 - 11 классы

ПАСКАЛЬ Ошибка : " Нельзя преобразовать тип integer к array [1?

ПАСКАЛЬ Ошибка : " Нельзя преобразовать тип integer к array [1.

40] of integer" var mas : array[1.

40] of integer ; i, max, max1 : integer ; begin max : = 0 ; max1 : = 0 ; For i : = 1 to 40 do begin mas : = random(101) ; write(mas[i] : 4) ; If mas[i]> ; max then max : = mas[i] ; end ; For i : = 1 to 40 do If (mas[i]< ; > ; max) and (mas[i]> ; max1) then max1 : = mas[i] ; writeln ; writeln(max1) ; end.

Kerrigan54 3 авг. 2020 г., 16:55:50 | 10 - 11 классы

Задача по двумерному массиву?

Задача по двумерному массиву.

Создать новый одномерный массив из элементов, стоящих под главной диагональю.

Вот шапочка массива : uses crt ; type mas = array [1.

8, 1.

8] of integer ; var M : mas ; i, j : integer ; begin randomize ; for i : = 1 to 8 do begin for j : = 1 to 8 do begin M[i, j] : = random(190) - 95 ; write(M[i, j] : 4) ; end ; writeln ; end ;

Marta134 18 сент. 2020 г., 05:01:56 | 10 - 11 классы

Program pr ; var mas : array[1?

Program pr ; var mas : array[1.

10] of integer ; i, min, ind : integer ; Begin randomize ; For i : = 1 to 10 do Begin mas[i] : = Random(100) ; write(mas[i], ' ') ; End ; writeln() ; min : = mas[1] ; For i : = 1 to 10 do Begin If (min> ; mas[i]) then End ; write('Минимальный элемент массива : ', min) ; End.

Что не верно?

Вот задача : Дан одномерный массив А длиной N.

Определить, на какой позиции нахо - дится минимальный элемент массива.

Make96th 18 янв. 2020 г., 03:04:39 | 10 - 11 классы

USES Crt ; const N = 10 ; VAR A : array[1?

USES Crt ; const N = 10 ; VAR A : array[1.

N] of integer ; k : integer ; Function FUN : integer ; Var i, M : integer ; Begin writeln('Введите число M = ') ; readln(M) ; k : = 0 ; for i : = 1 to N do if A[i] FUN : = k ; End ; Procedure SOSTMAS ; Var i : integer ; Begin for i : = 1 to N do begin A[i] : = Random(199) - 100 ; write(A[i] : 5) ; end ; Writeln ; end ; BEGIN SOSTMAS ; Writeln(FUN) ; что то неправильно говорят массив.

Ksusha1037 25 июн. 2020 г., 21:03:03 | 5 - 9 классы

Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 ?

Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 then begin writeln ('утро') ; readln (d) ; if a = 12 then begin writeln ('день') ; end ; if a = 16 then begin writeln ('вечер') ; / / / if a = 21 then begin writeln ('ночь') ; / / / end ; end ;

Treio 28 авг. 2020 г., 11:10:47 | 10 - 11 классы

Помогите решить, пожалуйста) var a, b, t, M, R : integer ; Function F(x : integer) : integer ; begin F : = 9 * (x + 19) * (x - 19) + 1 ; end ; begin a : = - 20 ; b : = 20 ; M : = a ; R : = F(a) ; for ?

Помогите решить, пожалуйста) var a, b, t, M, R : integer ; Function F(x : integer) : integer ; begin F : = 9 * (x + 19) * (x - 19) + 1 ; end ; begin a : = - 20 ; b : = 20 ; M : = a ; R : = F(a) ; for t : = a to b do begin if (F(t) < ; R ) then begin M : = t ; R : = F(t) end end ; write(M) ; end.

Помаг 24 сент. 2020 г., 21:16:58 | 5 - 9 классы

Что надо переделать (или добавить) чтобы все работало?

Что надо переделать (или добавить) чтобы все работало?

Program dfgvsdrfg ;

Var A : array [1.

16] of integer ;

k, i : integer ;

begin

writeln('исходные значения') ;

for i : = 1 to 16 do

begin

A[i] : = random (41) - 20 ;

write (A[i], '') ;

end ;

writeln ;

write('нулевые значения имеют элементы с индексами : ')

for i : = 1 to 16 do

if A[i] = 0 then write (i, '') ;

end.