Тема: Потрібна порада у виправленні помилки програми (у циклі)
Усім привіт, я не так давно на форумі, але вже потрібна невеличка консультація на рахунок виправлення помилки в коді програми
program s55;
uses
crt;
var
s1, a, S, n, i, v, kil: integer;
v1: real;
f1: text;
begin
clrscr;
S := 0;
s1 := 0;
writeln('Введите количество чисел');
readln(n);
randomize;
Assign(f1, 'C:\1.txt');
rewrite(f1);
for i := 1 to n do
begin
a := random(40) + 10;
writeln(f1, a:5, ';');
end;
close(f1);
reset(f1);
begin
for i := 1 to n do
begin
if (a / 5 = v) and (a / 7 = v1) then
begin
readln(f1, a);
kil := s1 + 1;
S := S + a;
end;
end;
end;
writeln('Suma =', S);
writeln('Kol-vo =', kil);
end.
Я ніяк не можу зрозуміти, чому воно не рахує суму чисел та кількість чисел у цьому циклі
if (a / 5 = v) and (a / 7 = v1) then
P.S. я розумію , що V та V1 не присвоєні значення, але я не розумію які саме потрібно підставити, щоб виконувалася умова, або ж ця умова не правильна у мене (:
Умова, якщо трохи не зрозуміло
P.S.2 Використання масиву не дозволяється