var A: array[1..nmax] of integer; I, m, s: integer; Am, kon: text;
begin Clrscr; Assign(Am, 'Am.txt');
{раскоментировать для записи массива в файл} {Rewrite(Am); m := Random(nmax - 5) + 5; for i := 1 to m do Writeln(Am, Random(20)); Close(Am);}
{считывание данных из файла} Reset(Am); s := 0; m := 0; while not eof(Am) do begin m := m + 1; Readln(Am, A[m]); s := s + A[m]; end; Close(Am);
Assign(kon, 'kon.txt'); Rewrite(kon);
if s > 50 then Writeln('Сумма элементов массива более 50 и равна: s=', s) Else begin Writeln('Сумма элементов менее 50, вывод исходного массива'); for i := 1 to m do begin Writeln('A[', i, ']=', A[i], ' '); Writeln(kon, 'A[', i, ']=', A[i], ' '); end; end;
"Пока" - while если правильно понял "Если" - if цикл с параметром - for
while - действие выполняется до того, пока требуемое условие заданное в ( ), не будет ложным Например: while <условие> do <операция>
for - действие выполняется до того, пока не выполниться столько - то раз Например: for i:=1 to 10 do //...i:=1 to 10... это сколько раз будет выполняться цикл, в данном случае 10 раз <операция>
if - условие, на которое есть 2 ответа: ДА или НЕТ (это как тип данных boolean, булеан логический тип данных, который тоже имеет 2 значения: true или false) Например: if <условие> then <операция> else <операция>
Вроде бы...
1) вибiр засобiв реалiзацiï проекту
2) створення iнформацiйноï моделi
3) створення презентацii
4)захист проекту