Написать программу на языке C #, которая рассчитывает значение выражения с использованием оператора for. Запрещается использовать функции класса Math. Для вариантов 1-10 сравнить рассчитанные значения выражения со значениями
полученными с проверочной функции. На фото не видно, там і=1
Program asd; Var A,C:array[1..2500] of integer; i,n,s,ii:integer; sr:real; BEGIN Write('Введите n: '); Readln(n); Writeln('Массив: '); For i:=1 to n do begin A[i]:=1+Random(9); Write(A[i]:2); end; Writeln; Writeln('Все элементы, которые меньше последнего числа в ряду: '); For i:=1 to n do begin if A[i]<A[n] then Write(A[i]:2); end; Writeln; Writeln('Среднее арифметическое элементов массива: '); For i:=1 to n do begin s:=s+A[i]; sr:=s/i; end; Writeln(sr:2:2); Writeln('Номер элементов, которые от 3 до 7.: '); For i:=1 to n do begin If (A[i]>=3) and (A[i]<=7) then begin C[i]:=i; Write(C[i],' '); end; end; END.
Program asd; Var A,B:array [1..250,1..250] of integer; i,j,n,m,k: integer; BEGIN Write('Введите n: '); Readln(n); Write('Введите m: '); Readln(m); for i:= 1 to n do begin for j:= 1 to m do begin A[i,j]:=random(10); write(A[i,j]:3); end; writeln; end; writeln; for i:= 1 to n do for j:= 1 to m do begin If A[i,j] mod 2=1 then inc(k); end; If n=m then begin Writeln('Транспонирование: '); for i:=1 to n do begin for j:=1 to m do begin write(A[j,i]:3); B[i,j]:=A[i,j]; end; writeln; end; writeln; end else Writeln('Кол-во нечетных элементов: ',k); END.
Var A,C:array[1..2500] of integer;
i,n,s,ii:integer;
sr:real;
BEGIN
Write('Введите n: '); Readln(n);
Writeln('Массив: ');
For i:=1 to n do
begin
A[i]:=1+Random(9);
Write(A[i]:2);
end;
Writeln;
Writeln('Все элементы, которые меньше последнего числа в ряду: ');
For i:=1 to n do
begin
if A[i]<A[n] then Write(A[i]:2);
end;
Writeln;
Writeln('Среднее арифметическое элементов массива: ');
For i:=1 to n do
begin
s:=s+A[i];
sr:=s/i;
end;
Writeln(sr:2:2);
Writeln('Номер элементов, которые от 3 до 7.: ');
For i:=1 to n do
begin
If (A[i]>=3) and (A[i]<=7)
then
begin
C[i]:=i;
Write(C[i],' ');
end;
end;
END.