Склавиатуры вводится 10 чисел[-100; 500] найти а)сумму всех частных чисел б) количество всех кратных 5 , и не оканчивающихся на нуль

Program znanija;var i,n,j,sum:integer;s:string;a:array[1..100] of integer;beginn:=0; sum:=0;for i:=1 to 10 do begin  writeln('Введите ',i,'-ый элемент массива [-100;500]');  read(a[i]);  s:=inttostr(a[i]);  j:=length(s);  if (a[i] mod 5 = 0) and (strtoint(s[j])<>0) then n:=n+1;  if a[i] mod 2 = 0 then sum:=sum+a[i];   end;writeln;writeln; writeln('Кол-во всех чисел кратных 5 и не оканчивающихся на ноль ',n);writeln;writeln('Сумма всех четных чисел ',sum);end.

C5

Объяснение:

Нарисуем схему. В подобного рода заданиях, где робот должен вернуться в начальную точку начинаем с конца.

1) Рисуем начальную точку.

2) Т.к. последнее условие "пока не слева стена", то рисуем стену слева от начальной точки

3) Далее переходим к началу и выполняем движение в указанном направлении ("вправо"), а затем поочерёдно выполняем то же самое с "пока не..." и функциями движения

4) По схеме находим нужную точку начиная с начальной точки

(Нарисованная мной схема приложена внизу, а так же решение отмечено на рисунке)

import random

A=[random.randint(1,5) for i in range(20)]

B=[random.randint(1,5) for i in range(20)]

print(A) #Данные строчки можно убрать, для наглядности вывожу массивы

print(B) #Данные строчки можно убрать, для наглядности вывожу массивы

count = 0

for i in range(20):

   if(A[i] == B[i]):

       print('Номер: ', i+1, 'Значение:', A[i])

       count +=1

if count == 0:

   print('Совпадений нет')

Объяснение:

строчки print(a) print(b) вывел чтобы показать что прога правильно работает, можно убрать