Решение задач с использованием массивов
Домашнее задание Учебник. § 41,42. Задачник- практикум. Том 1. П Задачи: На «3». Заполнить и вывести массив T(7), заданного а) с помощью функции Random; б) с клавиатуры. На «4». В массиве T(7), заданного с клавиатуры, найти: а) максимальный элемент; б) сумму всех элементов На «5». В массиве T(7), заданного с клавиатуры, найти: а) найти количество отрицательных элементов; б) сумму элементов, которые больше 5
В массиве E(11), заданного генератором случайных чисел, найти: а) найти количество положительных элементов;
program s1; var E:array[1..11] of real; i, s: integer; begin for i:=1 to 11 do E[i]:=random*10-5; for i:=1 to 11 do write(E[i]:5:1,' '); s:=0; for i:=1 to 11 do if E[i]>0 then s:=s+1; writeln(s=',s:5:1); end.
В массиве E(11), заданного генератором случайных чисел, найти: б) найти произведение элементов, которые меньше 3
program s1; var E:array[1..11] of real; i: integer; S:real; begin for i:=1 to 11 do E[i]:=random*10-5; for i:=1 to 11 do write(E[i]:5:1,' '); s:=1; for i:=1 to 11 do if E[i]