Дан массив, содержащий 70 целых чисел из промежутка [-100; 100].опишите на языке программирования паскаль алгоритм, позволяющий найти и вывести наименьшее содержащееся в массиве положительное число, десятичная запись которого оканчивается цифрой 7.гарантируется, что в массиве есть хотя бы один положительный элемент, десятичная запись которого оканчивается цифрой 7. const n=70; var a: array [1..n] of integer; i, j, m: integer; begin for i: =1 to n do a[i]: =;

M:=98;
for i:=1 to N do begin
if (a[i]>0) and (a[i] mod 7 =0) and (a[i]< m) then
m:=a[i];
end;
writeln(m)

Вам нужно:

1) перевести строку в массив символов

2) узнать длину полученного массива

3) создать ещё один пустой символьный массив

4) создать цикл, в котором будут записываться элементы первого массива во второй, пока не встретится запятая. если же встретилась запятая, то заканчиваем выполнение цикла

5) узнать размер нового массива, который состоит из букв первого слова

6) вывести последний элемент нового массива, что и будет последней буквой первого слова

алгоритм, в общем-то, такой. Вам нужно лишь перевести это в код на нужном языке программирования

#include <iostream>

#include <string>

 

bool check_func(char ch)

{

   if(ch == ' ' || ch == ',')

       return true;

   return false;

}

 

int main()

{

   std::string s;

   int index = 0, counter = 0;

   std::cout << "Enter string: ";

   getline(std::cin, s);

   

   while(s[index])

   {

       if(!check_func(s[index]))

       {

           while(!check_func(s[index]))

           {

               index++;

           }

           counter++;

       }

       index++;

   }

   

   std::cout << counter << "\n";

   

   system("pause");

   return 0;    

}