Var a,i,n:integer;
begin
writeln('Введите a');
readln(a); n:=0;
for i:=1 to a do begin
n:=n+1; writeln(i);
end;
writeln('N = ',n);
end.
Элементы массива считываются из области ячеек A1:E5. Они могут быть как целочисленными, так и вещественными. Для контрольного решения можно заполнить эти ячейки при помощи макроса InitCells, который выполняет инициализацию случайными числами из интервала [-10;10]
Sub InitCells()
Dim a(1 To 5, 1 To 5)
Randomize Timer
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(21 * Rnd - 10)
Next j
Next i
Range("A1:E5") = a
End Sub
Ниже представлен текст программы, вычисляющей значение t по формуле
Sub Main()
a = Range("A1:E5")
s = 0
For i = 1 To 5
p = 1
For j = 1 To 5
p = p * a(i, j)
Next j
s = s + p
Next i
MsgBox "t=" + CStr(s)
End Sub
Во вложении - рабочая книга Excel-2003 с тестовым примером и блок-схемой. Макросы находятся на листе 1 рабочей книги.
Компьютер -5
Телефон-3
Часы - 7
Это минимум балов 30)))
п.с. можешь удалить этот коммент!