Ввести массив H [1..5] и число А.Для каждого элемента массиа вычислить Z= корень из Ht/A.Исходный массив и результат распечатать.

S=1+3+5+7+ …, всего n слагаемых

на экран.

на паскале

{ Уплотнить линейный массив удалив нули и сдвинув влево остальные элм.}

uses crt

var m,i,k:longint a:array[1..100]of longint

begin

clrscr

write('введите кол-во элм таблицы: ')redln(k)

for i=1 to k do

begin

write('a[',i,']=')redln(a[i])

end

m=0

for i=1 to k do

if a[i]=0 then inc(m)

elsey a[i-m]=a[i]k=k-m

for i=1 to k do write(a[i],' ')redln

end.

символов. Сколько понадобится времени для передачи данной информации?

подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива

вычислить произведение всех элементов.

type mas=array[1..98] of integer;
var A,F,Q,C:mas;
i,s:integer;
begin
clrscr;
writeln('Массив первый:');
for i:=1 to 98 do
begin
A[i]:=random(100)-2;
write(A[i]:4);
end;
writeln;
writeln('Массив второй :');
for i:=1 to 98 do
begin
F[i]:=random(100)-2;
write(F[i]:4);
end;
writeln;
writeln('Массив третий :');
for i:=1 to 8 do
begin
Q[i]:=random(60)-52;
write(Q[i]:4);
end;
writeln;
writeln('Массив четвертый:');
for i:=1 to 8 do
begin
C[i]:=(sqrt(A[i])+sqrt(F[i]))/2+sin(A[i]*F[i])+(sqrt(Q[i])+sqrt(F[i]))/2+sin(Q[i]*F[i])+(sqrt(A[i])+sqrt(Q[i]))/2+sin(A[i]*Q[i]);
write(C[i]:4);
end;
writeln;
end.

Даны массивы A98), F98),Q(8). Сформировать массивы С(8), каждый элемент которого вычисляется по формулеC[i]:=(sqrt(A[i])+sqrt(F[i]))/2+sin(A[i]*F[i])+(sqrt(Q[i])+sqrt(F[i]))/2+sin(Q[i]*F[i])+(sqrt(A[i])+sqrt(Q[i]))/2+sin(A[i]*Q[i]);

Вычисление по формуле (x^2+y^2)/2+sin(X*Y) оформить в виде подпрограммы.