Задание:
Привет всем. В понедельник экзамен по информатике, а я ничего не могу решить. Кто нибудь можетпомочь? Задачи: 1. Найдите сумму всех элементов одномерного числового массива.2. Найдите произведение всех элементов одномерного числового массива.3. Найдите количество отрицательных элементов одномерного числового массива.4. Найдите количество нечетных элементов одномерного числового массива.5. Найдите количество элементов одномерного числового массива <20,6. Найдите количество кратных 7 элементов одномерного числового массива.7. Найдите сумму элементов одномерного числового массива=8,8. Найдите сумму кратных 11 элементов одномерного числового массива.9. Найдите сумму четных элементов одномерного числового массива.10. Найдите произведение кратных 3 элементов одномерного числового массива.11. Найдите произведение элементов одномерного числового массива >2 и <5,12. Вывести на экран элементов одномерного числового массива >15,13. Вывеси на экран элементов одномерного числового массива кратных 21,14. Вывести на экран четные элементов одномерного числового массива.
Решение:
1) vara: array [1… 15] of integer; s,i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random (80) -20; write (a[i],'); s: =s+a[i]; end; writeln; writeln ('Summa=',s); readln; end.2) vara: array [1… 15] of integer; i: integer; p: longint; beginrandomize; p: =1; for i: =1 to 15 do begina[i]: =random (26)+5; write (a[i],'); p: =p*a[i]; end; writeln; writeln ('Proizvedenie=',p); readln; end.3) vara: array [1… 15] of integer; k,i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random (90) -50; write (a[i],'); if a[i]<0 then k: =k+1; end; writeln; writeln ('Kol-vo=',k); readln; end. 4) vara: array [1… 15] of integer; k,i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random (37)+1; write (a[i],'); if odd (a[i])=true then k: =k+1; end; writeln; writeln ('Kol-vo=',k); readln; end. 5) vara: array [1… 15] of integer; k,i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random (39)+2; write (a[i],'); if a[i]<20 then k: =k+1; end; writeln; writeln ('Kol-vo=',k); readln; end. 6) vara: array [1… 15] of integer; k,i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random (60)+5; write (a[i],'); if a[i] mod 7=0 then k: =k+1; end; writeln; writeln ('Kol-vo=',k); readln; end. 7) vara: array [1… 15] of integer; s,i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random (8)+3; write (a[i],'); if a[i]=8 then s: =s+a[i]end; writeln; writeln ('Summa=',s); readln; end.8) vara: array [1… 15] of integer; s,i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random (69)+5; write (a[i],'); if a[i] mod 11=0 then s: =s+a[i]; end; writeln; writeln ('Summa=',s); readln; end.9) vara: array [1… 15] of integer; s,i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random (69)+5; write (a[i],'); if odd (a[i])=false then s: =s+a[i]; end; writeln; writeln ('Summa=',s); readln; end.10) vara: array [1… 15] of integer; i: integer; p: longint; beginrandomize; p: =1; for i: =1 to 15 do begina[i]: =random (69)+5; write (a[i],'); if a[i] mod 3=0 then p: =p*a[i]; end; writeln; writeln ('Proizvedenie=',p); readln; end. 14) vara: array [1… 15] of integer; i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random (26)+5; write (a[i],'); end; writeln; writeln ('='); for i: =1 to 15 do if odd (a[i])=false then write (a[i],'); readln; end.13) vara: array [1… 15] of integer; k,i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random (85)+21; write (a[i],'); end; writeln; writeln ('='); for i: =1 to 15 doif a[i] mod 21=0 then beginwrite (a[i],'); k: =k+1; end; if k=0 then writeln ('Elementov net'); readln; end. 12) vara: array [1… 15] of integer; k,i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random (37)+1; write (a[i],'); end; writeln; writeln ('='); for i: =1 to 15 doif a[i]>15 then write (a[i],'); readln; end.11) vara: array [1… 15] of integer; i: integer; p: longint; beginrandomize; p: =1; for i: =1 to 15 do begina[i]: =random (15)+1; write (a[i],'); if (a[i]>2) and (a[i]<5) then p: =p*a[i]; end; writeln; writeln ('Proizvedenie=',p); readln; end.
Знаете другой ответ?