|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Записать в файл произведение элементов массива, кратных своим индексам
Помогите кто сможет)
Задание такое: Создать программу, которая позволяет сформировать одномерный числовой массив из 20 элементов. Также в текстовый файл необходимо вывести результат, представляющий собой произведение элементов, кратных своим индексам. |
#2
|
|||
|
|||
Вдруг еще актуально )))
Код:
program mul; {$APPTYPE CONSOLE} {$D+,O-} uses SysUtils, Math; const ARRAY_LEN = 20; var Data: array [1..ARRAY_LEN] Of Integer; i : Integer; Mult: Integer; F : TextFile; begin { TODO -oUser -cConsole Main : Insert code here } Randomize; Mult := 1; for i := Low(Data) to High(Data) - 1 do begin Data[i] := Floor(Random(100)); Writeln(Format('%2d) %5d', [i, Data[i]])); if Data[i] mod i = 0 then Mult := Mult * Data[i]; end; AssignFile(F, ChangeFileExt(ParamStr(0), '.txt')); Rewrite(F); Writeln(F, Mult); CloseFile(F); Readln; end. |
#3
|
|||
|
|||
Ошибочка, надо вот так:
Код:
for i := Low(Data) to High(Data) do begin |