База данных (Access) «Телефонные переговоры» должна хранить следующую информацию: 1. Фамилия абонента. - id1543749220220824 от RedZilla54 24.08.2022 20:17

Question

Информатика: База данных (Access) «Телефонные переговоры» должна хранить следующую информацию: 1. Фамилия абонента. 2. Имя абонента. 3. Отчество абонента. 4. Фотография абонента. 5. Телефонный номер абонента. 6. Код города, куда звонил абонент. 7. Название города, куда звонил абонент. 8. Дата разговора. 9. Время разговора. 10. Заказан, ли был разговор. 11. Продолжительность разговора. 12. Домашний адрес абонента. 13. Тариф за 1 минуту разговора с указанным городом.

RedZilla54 · Accepted Answer

Если ты в 10-11, то необходимо с массивом:
const n=10;
var a:array[1..n] of integer;
i,min,max:integer;
sum:real;
begin
for i:=1 to n do readln(a[i]);
min:=a[1];
max:=a[1];
for i:=1 to n do begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
sum:=(min+max)/2;
writeln(sum);
end.

Без массива:
uses crt;
const n=10;
var x,i,min,max:integer;
sum:real;
begin
min:=10000;
max:=-10000;
for i:=1 to n do begin
readln(x);
if x>max then max:=x;
if x<min then min:=x;
end;
sum:=(min+max)/2;
writeln(sum);
end.

MOGZ ответил