Имя входного файла:standard input Имя выходного файла:standard output
Ограничение по времени:1 секунда
Ограничение по памяти:64 мегабайта
Определите максимальную цифру двузначного числа.
Формат входных данных
На ввод подается целое положительное двузначное число N (10 ≤ N ≤ 99).
Формат выходных данных
Выведите максимальную цифру числа.
max,min,i:integer;
b:real;
a:array[1..9]of integer;
begin
for i:=1 to 9 do
begin
while (a[i]<1) or (a[i]>6) do
begin
write(i,' оценка: ');
readln(a[i]);
end;
if i=1 then
begin
max:=a[1];
min:=a[1];
end;
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
b:=b+a[i];
end;
b:=(b-min-max)/7;
writeln('Зачетная оценка: ',b);
end.
2. #include <stdafx.h>
#include <stdio.h>
#include <math.h>
#include <stdlib.h> //for rand;
int main()
{
int i, n,M[1];
printf("Vvedit N:");
scanf("%d",&n);
for (i = 0; i < n; i++)
{
M[i] = rand()%10;
}
for (i = 0; i < n; i++)
{
printf("Array[%d] = %d\n", i, M[i]);
}
scanf("%d");
return 0;
}
3. var
a:array[0..9] of integer;
i,y,min:integer;
begin
randomize();
for i:=0 to 9 do
begin
y:= random(10);
a[i]:= y;
end;
for i:=0 to 9 do write(a[i],' ');
writeln(' - десять випадковых чисел');
min:=a[0];
for i:=1 to 9 do
if a[i]<min then min:=a[i];
writeln(min, ' - минимальне число.');
end.