Static void WriteArray(IEnumerable<int> a, bool one_line = true)
{
Console.WriteLine("Вывод массива:");
foreach (var item in a)
{
Console.Write("{0} ", item);
if (!one_line) { Console.WriteLine(); }
}
Console.WriteLine();
}
//Pascal
var
Arr: array [1..255] of byte;
i, N, A, B: byte;
begin
randomize; //В PascalABC.NET можно убрать
write('Введите количество элементов массива: '); readln(N);
writeln;
writeln(' ***Исходный массив*** ');
for i := 1 to N do
begin
Arr[i] := random(50);
write(Arr[i], ' ');
end;
writeln; writeln;
write('Введите диапазон A и B: '); readln(A, B);
writeln; writeln('Номера элементов');
for i := 1 to N do
if ((Arr[i] >= A) and (Arr[i] <= B)) then
write(i, ' ');
writeln;
readln;
end.
Высоту можно определить по известной формуле (если проблемы с этим - см. Интернет или задайте вопрос в Геометрии, чтобы формулу вывели):
, где a,b - катеты
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a,b:real;
Write('Введите катеты через пробел: '); Read(a,b);
Writeln('h=',a*b/sqrt(a*a+b*b))
end.
Код Pascal:
Const
n = 13;
Type
Mass = array[1..n] of real;
Function KL(Var A:Mass; c:real):integer;
Var
k,i:integer;
Begin
k:=0;
For i:= 1 to n do
if A[i] > c then k:=k+1;
KL:=k;
End;
Var
A:Mass;
i:integer;
c:real;
Begin
Randomize;
Write('A(',n,'):');
For i:= 1 to n do
Begin
A[i]:=random*21-10;
Write(' ',A[i]:0:3);
End;
WriteLn;
Write('c = ');ReadLn(c);
WriteLn('k = ',KL(A,c))
End.
Пример работы программы:
A(13): -2.768 10.516 -3.518 9.286 5.555 1.039 1.225 -6.135 8.743 7.440 -3.979 6.129 -7.982
c = 3
k = 6
Скажи а картинки к заданию нет
ето может бить если она нашла или взяла ещо одно яблоко
