Дан массив из n чисел. найти произведение тех чисел, которые имеют последние цифры 1 и 5, иначе посчитать количество. !

Var a: array [1..1000] of integer; i, n, k: integer; m: longint; begin       read(n);       for i : = 1 to n do           read(a[i]);       m : = 1;       k : = 0;       for i : = 1 to n do       if (a[i] mod 10 = 1) or (a[i] mod 10 = 5)       then           m : = m * a[i]       else           k : = k + 1; {я понял так: если числа не оканчиваются на 1 или 5, то подсчитать их количество}       writeln('multiplication: ', m);       writeln('other numbers: ', k); end.

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! procedure input(var a: array of integer); begin   a: =readarrinteger('вводите через пробел рост в см: ',a.length) end; procedure mymax(a: array of integer; var mr: integer); begin   mr: =a.max end; procedure kmax(a: array of integer; mx: integer; var km: integer); begin   km: =a.where(t-> t=mx).count end; begin   var n: =readinteger('количество учеников: ');   var r: =new integer[n];   input(r);   var maxr,kol: integer;   mymax(r,maxr);   kmax(r,maxr,kol);   writeln('максимальный рост ',maxr,' имеют ',kol,' чел.') end. пример количество учеников: 5 вводите через пробел рост в см: 170 168 171 159 171 максимальный рост 171 имеют 2 чел. на самом деле, это - прекрасный пример того, как не нужно использовать процедуры. потому что без процедур эта же решается гораздо короче, занимает меньше памяти и быстрее работает. ниже - текст такой программы в качестве иллюстрации написанного. begin   var a: =readarrinteger('вводите через пробел рост в см: ',           readinteger('количество учеников: '));   var maxr: =a.max;   var kol: =a.where(t-> t=maxr).count;   writeln('максимальный рост ',maxr,' имеют ',kol,' чел.') end.

ответ:

#include

#define max 100

using namespace std;

int index;

char input = 0;

int ln;

char min = '9' + 1;

char max = '0';

int nul;

int main()

{

    cin > > input;

   

    for(int j = 0; input[j] ! = '\0'; j++){

        ln = j + 1;

    }

   

    for(int j = 0; j < ln ; j++){

        if( input[j] < min){

            min = input[j];

        }

    }

   

    for(int j = 0; j < ln ; j++){

        if (input[j] > max){

            max = input[j];

        }

    }

    cout < < "max: " < <   max;

    cout < < "min: " < < min;

    cin > > nul;

   

    return 0;

}

p.s.я не уверен, если у тебя не запуститься пиши