Var a:array[1..4,1..6] of integer;
i,j,p,n:integer;
begin
p:=1;
n:=1;
for i:=1 to 4 do
for j:=1 to 6 do
read(a[i,j]);
for j:=1 to 6 do
p*=a[3,j];
writeln(p);
<span>end.</span>
x = 4, что соответствует условию x < 5, следовательно, y = x - 3, y = 1
Ответ: y = 1
Программа приложена файлом для Visual Basic for Applications
Ниже текст этой программы продублирован
Sub trans_sequence(ByVal M)'заполнение массива и создание преобразованной последовательности чисел N = M Dim mas() ReDim mas(M) Sg = "" Sf = "" Randomize For i = 1 To M mas(i) = Round((Rnd(100) - 0.5) * 100) Sg = Sg + Str(mas(i)) If (mas(i) < 0) Then mas(i) = mas(i) * mas(i) Sf = Sf + Str(mas(i)) If i <> M Then Sg = Sg + "," Sf = Sf + "," End If Next i MsgBox "последовательность чисел " + Sg + Chr(10) + "преобразованная последовательность " + SfEnd Sub
Sub test() trans_sequence (25)End Sub
#include <iostream>
using namespace std;
int maks(int n)
{
int max=0,a;
for(int i=0;i<n;i++)
{
cin >> a;
if( a > max || max == 0) max = a;
}
return max;
}
int main()
{
cout << maks(4)-maks(2)+maks(5);
return 0;
}
// Поиск максимума выполнен методом инициализации изначального максимума)