
Niav
6 год назад
Вопрос к тем,кто шарит в программировании (по паскалю) :
скласти програму,що дозволяє в одновимірному масиві,що складається з N речових елементів,обчислити кількість елементів масиву,рівних першому елементу
ОТВЕТЫ

Vitalian
Aug 7, 2019
Program array;
var
arr: array of real;
i: integer;
begin
randomize; {в даному прикладі використано випадкові дійсні числа від 0 до 1}
write(введіть n: );
readln(n);
SetLength(arr, n);
for i:= 0 to n do
arr[i] := random;
for i:= 1 to n do
if arr[i] = arr[0] then
write(i, );
end.
var
arr: array of real;
i: integer;
begin
randomize; {в даному прикладі використано випадкові дійсні числа від 0 до 1}
write(введіть n: );
readln(n);
SetLength(arr, n);
for i:= 0 to n do
arr[i] := random;
for i:= 1 to n do
if arr[i] = arr[0] then
write(i, );
end.
154