Написать программу: ввести 10 чисел и посчитать количество чисел оканчивающихся на 3

282

350

Посмотреть ответы 2

Ответы на вопрос:

9092005apv

Информатика

4,6(29 оценок)

Все хорошо, но язык какой? ) я думаю, что паскаль, если вы в школе.

bratan02

Информатика

4,7(11 оценок)

Var a: array[1..100] of integer; i,n,max,min: integer; begin writeln('skolko elementov'); readln(n); for i: =1 to n do begin write('a[',i,']='); read(a[i]); end; max: =a[1]; min: =a[1]; for i: =1 to n do if a[i]> max then max: =a[i]; for i: =1 to n do if a[i]< min then min: =a[i]; writeln('max - min =' ,max-min); end.