Вывести конечную запись - Pascal
Формулировка задачи:
Нужно вывести конечную запись на экран. Не получается сделать у меня.
uses crt; type a=array[1..80] of integer; var f:text; s:string; i, n, x1, x2:integer; a1:a; procedure KolSumChet(T:a; var kol,sum:integer); var i:integer; begin kol:=0; sum:=0; for i:=1 to High(T) do begin if T[i] <> 0 then begin if T[i] mod 2=0 then begin sum:=sum+T[i]; kol:=kol+1; end; end; end; end; begin s:='Лаба Файлики.txt'; assign(f,s); if not FileExists(s) then rewrite(f) else Append(f); write('Введите Вставку А: '); readln(n); write('Введите Вставку Б: '); read(x1, x2); writeln; For i:=1 to n do begin a1[i]:=Random(x1,x2); writeln(f,i,'. ',a1[i]); end; KolSumChet(a1,x1,x2); // ПРОЦЕДУРКА writeln(f,'Количество четных чисел ', x1); writeln(f,'Сумма четных чисел ', x2); writeln(f); close(f); end.
Решение задачи: «Вывести конечную запись»
textual
Листинг программы
writeln('Количество четных чисел ', x1); writeln('Сумма четных чисел ', x2);
Объяснение кода листинга программы
- Создается строка вывода на экран с сообщением
Количество четных чисел
и значением переменнойx1
. - Создается строка вывода на экран с сообщением
Сумма четных чисел
и значением переменнойx2
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д