Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использоватьсделайте три варианта программы, используя операторы while, repeat , for. заранее

Int a, tmp1 = 0, tmp2 = 0; 1)while (tmp < 10) { cin > > a; tmp2  +=  a; } cout < < tmp2 / 10; 2)for (; tmp < 10; tmp++) { cin > > a; tmp2 += a; } cout < < tmp2 / 10; 3)repeat cin > > a; tmp2 += a; until (tmp < 10) cout < < tmp2 / 10;

// pascalabc.net 3.2, сборка 1389 от 01.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: array[1..9] of real;   randomize;   for var i: =1 to 9 do begin       case i mod 3 of       1: a[i]: =i*i;       2: a[i]: =random(1,50);       else a[i]: =(a[i-2]+a[i-1])/2       end;       write(a[i],' ')       end;   writeln end. пример 1 44 22.5 16 16 10 49 39 23

1) program n1; var a: array[1..10] of integer; i,sum: integer; begin randomize; sum: =0; writeln('исходный массив: '); for i: =1 to 10 do begin a[i]: =random(20)-10; write(a[i],' '); if a[i]< 0 then sum: =sum+a[i]; end; writeln; writeln('сумма: ',sum); end. 2) program n2; var a: array[1..10] of integer; i,k: integer; begin randomize; k: =0; writeln('исходный массив: '); for i: =1 to 10 do begin a[i]: =random(20)-10; write(a[i],' '); end; writeln; write('номера дел на 5: '); for i: =1 to 10 do if a[i] mod 5=0 then write(i,' '); end.