Запишите обработчик события нажатия на кнопку с именем but1, в котором из полей объектов е1 и е2 класса Entry считываются значения для переменны а и b. Находится произведение этих значений и выдается в информационное окно сообщений
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016 begin var a:=ArrRandom(20,-10,10); a.Println; Writeln('Наибольший отрицательный элемент ', a.Where(x->x<0).Max) end.
#include <iostream>
using namespace std;
int main(){
int ma[2][2];
int temp;
temp=0;
for(int i=0;i<2;i++)
for(int j=0;j<2;j++)
cin>>ma[i][j];
cout<<"First array:"<<endl;
for (int i=0; i<2; i++){
for (int j=0; j<2; j++)
cout<<ma[i][j]<<"\t";
cout<<endl;
}
for(int i=0;i<2;i++){
temp=ma[i][0];
ma[i][0]=ma[i][1];
ma[i][1]=temp;
}
cout<<"Final array"<<endl;
for (int i=0; i<2; i++){
for (int j=0; j<2; j++)
cout<<ma[i][j]<<"\t";
cout<<endl;
}
cin.get();
cin.get();
return 0;
}
begin
var a:=ArrRandom(20,-10,10); a.Println;
Writeln('Наибольший отрицательный элемент ',
a.Where(x->x<0).Max)
end.
Тестовое решение:
8 -10 -6 -10 6 10 0 4 -6 -7 10 -2 -7 -10 3 -5 0 -9 3 3
Наибольший отрицательный элемент -2
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
var a:=ArrRandom(15,-10,10); a.Println;
a.Select(x->x<=3?x*x*x:x).Println
end.
Тестовое решение:
7 -3 5 -5 4 7 2 1 -10 9 -2 -7 4 0 5
7 -27 5 -125 4 7 8 1 -1000 9 -8 -343 4 0 5