Program Zadacha1; Const n = 10; Var a: Array [1..n] Of Integer; b, i: Integer; Begin Randomize; For i := 1 To n Do a[i] := Random(100); b := 0; For i := 1 To n Do If a[i] Mod 3 = a[i] Mod 5 Then b := b + 1; WriteLn('Массив:'); For i := 1 To n Do Write(a[i], ' '); WriteLn; If b > 0 Then WriteLn('Результат: ', b) Else WriteLn('В массиве нет таких чисел'); ReadLn; End.
Program Zadacha2; Const n = 10; Var a: Array [1..n] Of Integer; b, i: Integer; Begin Randomize; WriteLn('Начальный массив:'); For i := 1 To n Do Begin a[i] := Random(100); Write(a[i], ' '); End; WriteLn; b := 1; For i := 1 To n Do If a[i] < a[b] Then b := i; a[b] := 3; For i := 1 To n Do If i Mod 2 = 0 Then a[i] := 0; WriteLn('Конечный массив:'); For i := 1 To n Do Write(a[i], ' '); ReadLn; End.
Uses crt; const n=4; m=4; var a:array[1..n,1..m] of integer; s,i,j,p:integer; begin randomize; for i:=1 to n do for j:=1 to m do a[i,j] := random(99); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:3); writeln; end; writeln; p:=1; for i:=1 to n do for j:=1 to m do if i=j then p:=p*a[i,j]; s:=0; if (a[1,2]*a[2,3]*a[3,4]=p) then s:=s+a[1,2]+a[2,3]+a[3,4]; if (a[1,3]*a[2,4]=p) then s:=s+a[1,3]+a[2,4]; if a[4,4]=p then s:=s+a[4,4]; if (a[2,1]*a[3,2]*a[4,3]=p) then s:=s+a[2,1]+a[3,2]+a[4,3]; if (a[1,3]*a[2,4]=p) then s:=s+a[2,1]+a[3,2]; if a[1,4]=p then s:=s+a[1,4]; writeln(s); end.
int main()
{
double x,a,b,c,d,y;
cin >> x;
a=x*x;
b=a*a;
c=a+b;
d=b+1;
y=c/d;
cout << y;
system("pause");
return 0;
}