Самостоятельная работа «Одномерные массивы. Питон» 1) Дан массив А из 25 элементов. Элементы массива могут принимать целые значения от -1000 до 1000 включительно. Найти и вывести сумму элементов массива, значения которых положительны, кратны 3 и оканчиваются на 6. Если таких чисел нет, нужно вывести ответ 0. 2) Дан массив А, содержащий 20 целых чисел, по абсолютной величине не превышающих 3000. Необходимо найти в этом массиве количество элементов, которые кратны 5, а их десятичная запись заканчивается цифрой 0, и заменить каждый из таких элементов на это количество. В качестве результата программа должна вывести изменённый массив, по одному элементу в строке.

Номер 2:

n = int(input())#количество элементов

a = []

for i in range(n):

   a.append(int(input()))

k = 0

for i in range(n):

   if a[i] % 5 == 0 and a[i] % 10 == 0:

       k += 1

for j in range(n):

   if a[j] % 5 == 0 and a[j] % 10 == 0:

       a[j] = k

print('\n'.join(map(str, a)))

Номер 1:

n = int(input())#количество элементов

a = []

for i in range(n):

   a.append(int(input()))

k = 0

su = 0

for i in range(n):

   if a[i] > 0 and a[i] % 3 == 0 and a[i] % 10 == 6:

       su += a[i]

print(su)

Объяснение:

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
  var Bnk:=Arr(500,100,50,10);
  var s:=ReadInteger('Сдача, руб:');
  var Kol:=Arr(0,0,0,0);
  for var i:=0 to 3 do begin
    Kol[i]:=s div Bnk[i];
    s:=s mod Bnk[i]
    end;
  if s<>0 then Writeln('Сдачу дать невозможно')
  else begin
    Writeln('Следует дать:');
    for var i:=0 to 3 do
      Writeln('банкнот по ',Bnk[i],' руб - ',Kol[i],' шт.')
    end
end.

Тестовое решение:
Сдача, руб: 850
Следует дать:
банкнот по 500 руб - 1 шт.
банкнот по 100 руб - 3 шт.
банкнот по 50 руб - 1 шт.
банкнот по 10 руб - 0 шт.

1)

var

   a, n, s: integer;

begin

   write('n = ');

   Readln(n);

   

   a := 1;

   while a <= n do

   begin

       s := s + a;

       a := a + 1;

   end;

   writeln(s);

end.

2)

var

   a, n: integer;

begin

   write('n = ');

   Readln(n);

   a := 1;

   while a <= n do

   begin

       writeln(2 * a);

       a := a + 1;

   end;

end.

3)

var

   a, b: integer;

begin

   write('Введите числа a и b: ');

   Readln(a, b);

   

   while a <= b do

   begin

       writeln(a, '^2 = ', sqr(a));

       a := a + 1;

   end;

end.