Составить алгоритмы решения с блок-схем, используя конструкцию циклического алгоритма. 1. найти произведение четных чисел в диапазоне от 10 до 40. 2. составить алгоритм сбора в лесу съедобных и не червивых грибов в количестве более 50 шт.
NortonCommander - Файловый менеджер WinRar - Программа архивирования keyboard.drv, sound.drv, mouse.drv - Драйвера устройств клавиатуры, аудио и мышки «1С Предприятие» - программные продукты для автоматизации бухгалтерского и управленческого учёта
MSWord, Блокнот - текстовые редакторы MSExcel - табличный редактор MSAccess - реляционная СУБД 3DStudio - редактор трёхмерной графики Си, Basic, Pascal, C+, Фортран, FoxPro - Языки программирования Linux, Windows7 - Операционные системы AdobePhotoshop, Paint - графический редактор MacromediaFlash - медиа-плеер Компас 3D - САПР(Система автоматизированного проектирования) QIP - интернет-пейджер AVP Касперского, DrWeb - антивирусная программа OutlookExpress - почтовый клиент и органайзер HTML - язык гипертекстовой разметки NeroPremium - программа записи дисков «Консультант Плюс» - Справочная система
P.S. Вроде всё описал, если нужны объяснения пишите
1. var k, sum, n, i: integer; A: array of integer; begin writeln('Введите размерность массива: '); readln(n); SetLength(A, n); writeln('Введите K: '); readln(k); writeln('Введите ', n, ' элементов массива :'); for i := 0 to n - 1 do begin readln(A[i]); if A[i] mod k = 0 then sum := sum + A[i]; end; writeln('Результат: ', sum); end.
2. var c, k, n, i: integer; B, A: array of integer; begin k := 1; writeln('Введите размерность массива: '); readln(n); SetLength(A, n + 1); writeln('Введите ', n, ' элементов массива :'); for i := 1 to n do begin readln(A[i]); if A[i] = 0 then begin inc(c); SetLength(B, c + 1); B[k] := i; inc(k) end; end; writeln('Позиции нулевых элементов: '); for i := 1 to c do write(B[i]:3); end.
