1) Var n,m,max,min:integer; Begin write('Введите число: '); readln(n); min:=9; max:=0; while n>0 do begin m:=n mod 10; if m<min then min:=m; if m>max then max:=m; n:=n div 10; end; writeln('Максимальное число: ',max); writeln('Минимальное число: ',min); End. 2) var i,count: integer; n,s:string; begin writeln('Введите число: '); readln(s); writeln('Введите цифру: '); readln(n); for i:=1 to length(s) do if(s[i]=n)then count:=count+1; writeln('Количество раз, когда встречается цифра = ',count); end.
#include <iostream>
#include <ctime>
using namespace std;
void main()
{
srand(time(NULL));
const int size = 12;
int arr[size];
int c = 0;
for (int i = 1; i <= size; i++)
{
arr[i] = rand() % 80 + (-40);
if (arr[i] % 2 != 0)
continue;
c += arr[i];
}
cout << c << endl;
system("pause");
}