// PascalABC.NET 3.1, сборка 1239 от 08.05.2016 begin var m:=ReadInteger('Число строк='); var n:=ReadInteger('Число стролбцов='); var a:=MatrixRandom(m,n,-99,99); var imax:=-1; var jmax:=0; var imin:=0; var jmin:=0; var min:=100; var max:=-100; // больше большего, меньше меньшего for var i:=0 to m-1 do begin for var j:=0 to n-1 do begin Write(a[i,j]:4); if (a[i,j]>0) and (a[i,j] mod 2=0) then begin if a[i,j]<min then begin imin:=i; jmin:=j; min:=a[i,j] end; if a[i,j]>max then begin imax:=i; jmax:=j; max:=a[i,j] end end end; Writeln end; if imax<>-1 then begin Writeln('Минимальный четный положительный элемент A[', imin+1,',',jmin+1,']=',a[imin,jmin]); Writeln('Максимальный четный положительный элемент A[', imax+1,',',jmax+1,']=',a[imax,jmax]) end else Writeln('В массиве нет положительных четных элементов') end.
#include <iostream> using namespace std; int main() { setlocale(0,""); int a; cout<<"введите значение погоды"<<endl; cout<<"1-тепло"<<endl; cout<<"2-жарко"<<endl; cout<<"3-холодно"<<endl; cout<<"4-колотун"<<endl; cin>>a; switch (a) { case 1: cout<<"вы можете одеть джинсы и футболку"<<endl; break; case 2: cout<<"вы можете одеть шорты и майку "<<endl; break; case 3: cout<<"вы можете одеть штаны и толстовку "<<endl; break; case 4: cout<<"вы можете одеть куртку и свитер с подштанниками и ватными штанми "<<endl; break; } return 0; }
Числовых данных
Объяснение:
int - числовой тип данных.