Program Ok;
var a,i,k,n:integer;
begin
k:=0;
write('Введите кол-во чисел: ');
readln( n);
for i:=1 to n do
begin
read(a);
if (a div 10 <> 0) and (a div 100 = 0) and (a mod 2 = 0) and (a mod 3 = 0) then
k:=k+1;
end;
write(k);
end.
1. С сообщениями можно работать через Web интерфейс - быстрый доступ когда нужно но, ограниченный функционал и тормознутость интерфейса
2. Через протоколы POP IMAP - полный функционал, но нужно на каждое устройство ставить и настраивать клиентскую программу.
3. Через сервер Exchange. одни достоинства, но это только для корпоративной почты.
// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
begin
var a:=ArrRandom(10,-50,50); a.Println;
Writeln('Отрицательных ',a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
37 -20 2 -13 10 9 -25 11 8 -3
Отрицательных 4
#include<stdio.h>
int main(){
unsigned int arr_sz;
scanf("%u",&arr_sz);
signed long long int arr[arr_sz];
unsigned int arr_ism=0;
for(unsigned int i=0;i<arr_sz;i++){
scanf("%lld",&arr[i]);
if(arr[i]<arr[arr_ism])
arr_ism=i;
}
for(unsigned int i=0;i<arr_sz;i++)
printf("%lld ",arr[i]<0?arr[i]:arr[arr_ism]);
printf("\n");
//getchar();
return 0;
}