Паскаль! От за рабочую программу исправьте данный код под условие задачи, данные не записываются в файл. Также нужно через // после команд написать что они делают.
--
var f:file of integer;
a,mn,mx,i,n:integer;
begin
assign(f,'file.txt');
rewrite(f);
write('Сколько компонент ввести в файл? n=');
readln(n);
writeln('Введите ',n,' целых чисел:');
for i:=1 to n do
begin
readln(a);
write(f,a);
end;
writeln('Содержание файла:');
reset(f);
seek(f,0);
read(f,a);
mn:=a;
mx:=a;
write(a,' ');
for i:=1 to filesize(f)-1 do
begin
seek(f,i);
read(f,a);
if a> mx then mx:=a
else if a write(a,' ');
end;
writeln;
writeln('Макс.=',mx,' Мин.=',mn);
close(f);
readln
end.
--
Условие задачи:
Создать файл действительных случайных чисел. Найти наибольший и наименьший элементы и дописать в файл.
for k:= 2 to 7 do - цикл будет выполнен 6 раз (2/3/4/5/6/7). Каждый раз переменная s будет уменьшаться на 10:
100-10=90 (1 цикл)
90-10=80 (2-й)
80-10=70 (3-й)
70-10=60 (4-й)
60-10=50 (5-й)
50-10=40 (6-й цикл, последний)
S=40
2) k будет равно 22.
For i:= 1 to 4 do - цикл будет выполнен 4 раза (1/2/3/4). Каждый раз переменная k будет присваивать значение 2*i+k:
2*1+2=4 (1-й цикл: 1 - это i, 2 - первоначальное значение k)
2*2+4=8 (2-й цикл: 2 - это очередная i, 4 - предыдущее значение k)
2*3+8=14 (3-й цикл)
2*4+14=22 (4-й цикл, последний)
k=22
using System;
public class Program
{
public static void Main()
{
var rand = new Random();
int x = rand.Next(3, 10);
int t = 1200;
int count;
if (t % x == 0)
{
count = t / x;
}
else
{
count = t / x + 1;
}
int ans;
if (count % 20 == 0)
{
ans = count / 20;
}
else
{
ans = count / 20 + 1;
}
Console.WriteLine(ans.ToString());
}
}
Генерируем рандомное число от 3 до 10. Затем рассчитаем на сколько лекций он опоздает суммарно на 20 часов (т.е. 1200 минут). Разделим количество лекций, на которые он опоздал, на 20 с округлением вверх и получим ответ.