Регистрация
valya14071983p07upc
10.02.2020 16:47
Информатика
Есть ответ 👍

1. найти сумму 1-го, 3-го и 5-го элементов массива a: arrat [1..15] of real. 2. найти и вывести на экран произведение элементов массива из 10 чисел, кратных 7. массив заполняется случайными числами. составьте !

279
458
Посмотреть ответы 2

Ответы на вопрос:

lren1
lren1
4,4(86 оценок)
1. vari: integer; a: array [1..15] of real; rez: real; begin for i: =1 to 15 do begin readln(a[i]); end;   rez: =a[1]+a[3]+a[5]; writeln(rez); end. 2. const z = 10; // размер массива  var    a: array [1..z] of integer;   i,rez: integer;   begin rez: =1; for i: =1 to z do begin a[i] : = random(100); end; writeln('элементы массива: '); for i: =1 to z do begin    write(a[i],' ');     if (a[i] mod 7 = 0) then    rez: =rez*a[i]; end; writeln(' '); if (rez < > 1)   then writeln(rez) else writeln('нет элементов, кратных 7'); end.
FaceLess111
FaceLess111
4,6(46 оценок)

красный 100

белый 111

Объяснение:

Популярно: Информатика