1. Понятность для исполнителя — исполнитель алгоритма должен понимать, как его выполнять. Иными словами, имея алгоритм и произвольный вариант исходных данных, исполнитель должен знать, как надо действовать для выполнения этого алгоритма.

0 0

4 года назад

Подсчитать количество элементов одномерного массива, которые совпадают со своим номером

8Марьяна8 [96]

Такая ситуация выпадает не очень часто, поэтому запускай программу несколько раз подряд. Можно повысить вероятность, но это усожнит программу.
var
i, n: integer;
k: array[1..10]of integer;
begin
for i := 1 to 10 do
begin
k[i] := random(10)+1;
write(k[i],' ');
if k[i]=i then n:=n+1;
end;
writeln;
writeln('Число искомых элементов: ',n)
<span>end.</span>

0 0

4 года назад

5.Cоставьте программу для определения значения следующих выражений :а)0,5x в квадрате /(a+b)

hrumka [34]

Pascal

var
x,a,b : integer;
r : real;

begin
readln (x,a,b);
r := (0.5*sqr(x))/(a+b);
writeln (r)
end.

0 0

4 года назад