Напишите программу, разделяющую мелодии разных видов лягушек. К розовым лягушкам (Pink Frogs) относятся числа, кратные пяти или большие 1000.
К ядовитым (Poisonous frogs) относятся нечетные, меньшие 99.
К крапчатым (Speckled frogs) – четные, в разряде десятков у которых стоят 8 или 9.

Формат ввода
Вводится количество чисел, затем сами числа.
Формат вывода
Выведите информацию, относящуюся к разным видам лягушек, в виде:
Pink Frogs: <разность наибольшего и наименьшего из подходящих чисел>.
Poisonous frogs: <сумма подходящих чисел>.
Speckled frogs: <количество подходящих чисел>.

Если в первой группе оказывается одно число, то оно считается и наибольшим, и наименьшим.

Пример 1
Ввод Вывод
7
182
363
693
26
345
1037
530

Pink Frogs: 692.
Poisonous frogs: 0.
Speckled frogs: 1.
Пример 2
Ввод Вывод
9
975
6405
164
498
77
58
490
41
298
Pink Frogs: 5915.
Poisonous frogs: 118.
Speckled frogs: 3.


вот на c:

#include < stdio.h> int main(void){  int i;   for(i = 50; i > = -50; i -= 10)  {    printf("%d\n", i);     }  printf("\n");   system("pause");   return 0; }

var

s,s1: real;

k: integer;

begin

s: =10;

k: =1;

while s< 20 do

begin

s: =s*1.1;

k: =k+1;

end;

writeln('в ', k,' день он пробежит 20 км');

s: =10;

s1: =10;

k: =1;

while s< 200 do

begin

s: =s+s1*1.1;

s1: =s1*1.1;

k: =k+1;

end;

writeln('в ', k,' день суммарный пробег превысит 200 км');

end.

program z_array; uses crt; var a: array[1..100,1..100] of integer; m,n,i,j: byte; sum: integer; begin clrscr; writeln('введите количество строк матрицы'); readln(n); writeln('введите количество столбцов матрицы'); readln(m); writeln('введите элементы матрицы'); for i : = 1 to n dofor j : = 1 to m dobegin write('a[',i,',',j,'] = '); readln(a[i,j]); end; writeln('данная матрица'); writeln; sum : = 0; for i : = 1 to n dobeginfor j : = 1 to m dobegin write(a[i,j]: 5); if (j < i) then sum : = sum + a[i,j]; end; writeln; writeln('искомая сумма = ',sum); readln; end.