вопрос к тем,кто шарит в программировании (по паскалю) : скласти програму,що дозволяє в одновимірному масиві,що складається з N речових елементів,обчислити кількість елементів масиву,рівних першому елементу
Answers & Comments
BrightOne
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.
Answers & Comments
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.