Исполнителями алгоритма на мой взгляд являются В и С
option explicit
dim s,k,i,j,max,min,a
privat sub cmdstart_click()
pic1.cls
redim a(1 to 5,1 to 3)
pic1.scale(0,0)-(5+1,3+1)
randomize:pic1.forecolor=vbblue
for i=1 to 5
for j=1 to 3
a(i,j)=int(rnd*100):pic1.currentx=j
pic1.currenty=i:pic1.print a(i,j)
next
next
max=a(1,1)
min=a(1,1)
for i=1 to 5
for j=1 to 3
if a(i,j)>max and a(i,j)<min then
end if
next
next
pic1.forecolor=vbred:pic1.print max, min
end sub
===== PascalABC.NET =====
-1-
begin
var x := ReadReal('Введите вклад?');
var n := ReadInteger('Введите срок?');
for var i := 1 to n do
begin
x *= 1.03;
Writeln(i, ' год - ', x:0:2, ' руб')
end
end.
-2-
begin
for var i := 1 to 10 do
Writeln('5*', i, ' = ', 5 * i)
end.
-3-
begin
var s := ReadSeqReal('Введите 5 любых чисел:', 5).Sum;
Println('Их сумма равна', s);
end.
Тем, что память человечества - это всего лишь информация, а память человека - это способ доступа к информации.