Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет сумму элементов массива с четными значениями.информатика 9 класс.

Qpython

#-*-coding:utf8;-*-
#qpy:2
#qpy:consol

#-*-coding:utf8;-*-
#qpy:2
#qpy:consol

import math
import random

a = [ (random.randint(0, 10)) for _ in range(1,10)]
print a
print "max=",max(a), "min ",min(a)
mm=range(0,9)
sum=0
for i in mm[::2]:
. print "a[",i,"]=", a[i]
. sum+=a[i]
print "summa=",sum

такие коды, пиши

using System.Threading.Tasks;

namespace trapec

{

   class Program

   {

       static void Main(string[] args)

       {

           Console.WriteLine("[Введите символ, из которого будете рисовать трапецию]");

           string c = Console.ReadLine();

           Console.WriteLine(" " + c + " " + c + " " + c + " " + c + "");

           Console.WriteLine(" " + c + " " + c + " " + c + " " + c + " " + c + " " + c + " ");

           Console.WriteLine(" " + c + " " + c + " " + c + " " + c + " " + c + " " + c + " " + c + " " + c + " ");

           Console.WriteLine("[Поздравляем, вы нарисовали самую идеальную трапецию во вселенной]");

       }

   }

}  

1) 

var a:array [1..100] of integer;

n,i:integer;

begin

for i:=10 to 99 do begin

a[i]:=i;

if (a[i] mod n=0) then writeln(a[i]);

end;

end.

 

 2)

var a:array [1..100] of integer;

n,k,i,x,y,z: integer;

begin

readln(n,k);

for i:=n to k do begin

a[i]:=i;

x:=a[i] mod 10;

y:=a[i] div 10;

z:=y mod 10;

y:=y div 10;

if (x=y) or (x=z) or (y=z) then writeln(a[i]);

end;

end.

 

 3)

 var a,n,an,na: integer;

begin

readln(a,n);

if (a>0) and (b>0) then begin

an:=a*10+n;

na:=n*10+a else writeln('Введены неверные числа!');

end;

end.