program massiv;
uses crt;
const n=10 {размер массива}
var i,k: integer;
a: array[1..n] of integer;
begin
clrscr;
write('введите элементы массива: ' );
k: =1
for i: =1 to n do
begin
readln (a[i]);
if (a[i]< 0) and (a[i] mod 7)=0 then k: =k*a[i];
end;
writeln;
write('исходный массив: ')
for i: =1 to n do write(a[i]: 3);
writeln;
writeln('произведение отрицательных элементов кратных 7: ',k);
readkey;
end.
так как неуказан язык программирования пишу алгоритм
1)открываем поток для чтения файла f , нам еще потребуется переменная назовем ее count (тип дробных чисел в каждом языке по разному) и переменную допустим value (тоже дробное) далее проход по файлу любым циклом до конца файла и условие если value = дробь то count = count +1 и в конце выводим count в файл g
2)открываем поток для чтения файла f , и две переменные max и min и массив кол-во элементов которого равно кол-ву чисел в файле (считаем любой функцией ) далее сортируем массив по возрастанию и получиться max = последний элемент массива ;
min = первый элемент массива . далее выводим min и max в файл g
3)аналогично 4 только вместо записи их в массив просто задаете переменную которая будет увеличиваться если число четное .
4)открываем поток для чтения файла f , потребуется массив равный кол-ву четных элементов файла на четность можно проверить если остаток от деления числа на 2 =0 то
число четное , далее просто заполняем массив из файла четными точно такой же проверкой и выводим в файл g . но еще лучше использовать динамический массив тогда проход по файлу будет равен 1
5)все просто открываешь первый файл для чтение считаешь кол-во элементов ,
создаешь массив, кол-во элементов которого = твой подсчет , заполняешь его из файла ,далее соритруешь по возрастанию , и выводишь этот массив в файл 2 , опять же можешь использовать динамические массивы и облегчить себе жизнь
Поделитесь своими знаниями, ответьте на вопрос:
Кем и когда были созданы первые электронные таблицы?