Var m : array[1..5] of Byte; i : Byte; R : Longint; Begin R:=1; For i:=1 to 5 do Begin Readln(m[i]); R:=R*m[i]; end; Writeln('Произведение = ',R); end.
int main() { srand(time(NULL)); int length; std::cin>>length; int *array=new int[length]; for (int i=0;i<length;i++) { array[i]=rand()%21-10; std::cout<<array[i]<<' '; //заполнение и вывод массива на экран } std::cout<<std::endl; int m=array[0]; for (int i=1;i<length;i++) if (array[i]<m) m=array[i]; int n=0; for (int i=0;i<length;i++) if (array[i]!=m) n++; int *array1=new int[n]; int a=0; for (int i=0;i<length;i++) { if (array[i]!=m) { array1[a]=array[i]; a++; } } delete [] array; for (int i=0;i<n;i++) std::cout<<array1[i]<<' '; //вывод получившегося массива на экран std::cout<<std::endl<<n; return 0; }
У мониторов размер экрана разные, цветопередаваемость , контрастность , яркости ( у некоторых мониторах специально говорят что у них яркость экрана лучше , но на самом деле плохие ) . У мышок чувствительность разные , скорость нажатия . У принтера может быть плохой цвет ( то есть, у монитора цвета яркие и сочные , а в принтере вообще не так как надо было ) , не подходящая бумага ( он не принимает А4 , а другое , цвет у принтера в цветном режиме, они грубые по виду) , не может правильно использовать чернилу ( у принтеров есть эта проблема )
m : array[1..5] of Byte;
i : Byte;
R : Longint;
Begin
R:=1;
For i:=1 to 5 do
Begin
Readln(m[i]);
R:=R*m[i];
end;
Writeln('Произведение = ',R);
end.