Задание 5 Вариант 2 Самостоятельная работа 5 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)

Ниже вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:

5. Напишите программу. Коэффициентами квадратного уравнения ах^2 + bх + с = 0 могут быть любые элементы соответствующих целочисленных массивов: А[1..5], В[1..7], С[1..1О]. Подсчитайте, сколько из этих 350 уравнений имеют два различных вещественных корня. Запишите текст программы.

program s5_v2_5;

const

n = 92; //июнь – 30, июль – 31, август – 31

var

a: array[1..n] of integer;

i, ks1, kd1, kd2, kd3, max: integer;

st: string;

begin

writeln(taskВвод массиваtask);

randomize;

for i := 1 to n do

a[i] := random(2) + 1;

for i := 1 to n do

write(a[i], task task); //вывод исходного массива

kd1 := 0; kd2 := 0; kd3 := 0;

//Количество дождливых дней в июне

for i := 1 to 30 do

if a[i] = 1 then kd1 := kd1 + 1;

//Количество дождливых дней в июле

for i := 31 to 61 do

if a[i] = 1 then kd2 := kd2 + 1;

//Количество дождливых дней в августе

for i := 62 to 92 do

if a[i] = 1 then kd3 := kd3 + 1;

writeln;

writeln(taskkd1=task, kd1, task kd2=task, kd2, task kd3=task, kd3);

max := kd1; st := taskиюнеtask;

if kd2 > max then

begin

max := kd2; st := taskиюлеtask

end;

if kd3 > max then

begin

max := kd3; st := taskавгустеtask

end;

writeln(taskДождливых дней было больше в task, st)

end.