7 Контрольные во Что понимают под классом объектов? Свойствами объектов? 7.2 Типы связей один-к-одному - id1340795920210712 от Artur68084 12.07.2021 07:28

Question

Информатика: 7 Контрольные во Что понимают под классом объектов? Свойствами объектов? 7.2 Типы связей один-к-одному и один-ко-многим : как они реализуются в реляционных базах данных? 7.3 В каких режимах можно создать структуру таблицы в Access97 ? 7.4 Какая информация указывается в структуре таблицы? 7.5 Что такое ключевое поле и какие требования предъявляются к нему? 7.6 Как в СУБД Access можно определить ключевое поле? 7.7 Как и для чего в СУБД Access создается схема данных? 7.8 Типы данных в Access97. 7.9

Artur68084 · Accepted Answer

1. Короткое современное решение

// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('n=');
var a:=SeqRandom(n,1000, 100000);
var b:=a.Select(x->x/1000).ToArray; b.Println;
Writeln('П=',b.Aggregate(1.0,(p,q)->p*q));
Writeln('Max=',b.Max)
end.

Пример
n= 10
64.006 47.819 87.225 6.856 32.112 93.963 11.053 50.93 18.959 14.785
П=871460676775803
Max=93.963

2. А так (примерно) учат в большинстве школ

const
nn=1000; // предел для кол-ва элементов
var
n,i:integer;
a:array[1..nn] of real;
max,p:real;
begin
Write('n='); Read(n);
p:=1;
max:=0; // меньше меньшего
for i:=1 to n do
    begin
    a[i]:=(Random(99001)+1)/1000;
    Write(a[i],' ');
    p:=p*a[i];
    if a[i]>max then max:=a[i]
    end;
Writeln;
Writeln('П=',p);
Writeln('Max=',max)
end.

MOGZ ответил