const n=5;
var a:array [1..n] of integer;
i,s:integer;
begin
for i:= 1 to n do
begin
a[i]:=Random(5)+2;
write(a[i],' ');
end;
writeln;
for i:= 1 to n do if a[i]=3 then writeln (i,' элемент равен ',a[i]);
for i:= 1 to n do if a[i]>3 then writeln (i,' элемент больше 3 и равен ',a[i]);
for i:= 1 to n do if (a[i]>=3) and (a[i]<=5) then s:=s+a[i];
writeln ('Сумма чисел в массиве удовлетворяющих условию 3<=x<=5 равна ',s)
end.
Program sadadasf;
var i,k,l,m,s: integer;
A: Array[1..150] of integer;
begin
Writeln('Сколько чисел будет в массиве?');
readln(k);
l:=9999;
m:=-1000;
For i:=1 to k do
begin
Writeln('Введите элемент массива №',i);
Readln(A[i]);
If A[i]>m then m:=A[i];
If A[i]<l then l:=A[i];
end;
s:=m+l;
Writeln('Сумма минимального и максимального элемента массива: ',s);
<span>end.</span>
А зачем массив импортировать, когда можно подсчитать сумму по ячейкам, через макрос?
Sub Макрос1()
'
' Макрос1 Макрос
'
'
s = 0
MsgBox "Выбраны ячейки: " & ActiveWindow.RangeSelection.Address
For n = 1 To Selection.Rows.Count
s = s + Selection.Cells(n, n)
Next n
MsgBox "сумма диагональных элементов: " & s
<span>End Sub
На самом листе Excel заводим кнопку CommandButton1 и даем название кнопке "Подсчет"
Набираем процедуру CommandButton1_Click
</span>Private Sub CommandButton1_Click()
Макрос1
<span>End Sub
</span>
После выделения диапазона ячеек мышью нажимаем кнопку "Подсчет" и получаем результат.
Решение в прикрепленном файле.
