Лабораторная работа 20 Выполнение заданий в СУБД Цель. Знать основные элементы базы данных Microsoft - id1346712320220721 от dasha1933 21.07.2022 21:55

Question

Информатика: Лабораторная работа 20 Выполнение заданий в СУБД Цель. Знать основные элементы базы данных Microsoft Access; уметь создавать структуры таблицы, вводить данные в таблицу базы данных, создавать формы, за и отчеты. Выработать и закрепить навыки при выполнении команд с объектами базы данных. Задание 1. Ввести, отредактировать, оформить и сохранить данные в своей таблице по представленным ниже данным, учтите, что основные характеристики вертолета является одним из полей, таблицу базы данных назовите

dasha1933 · Accepted Answer

uses

crt;

const

max=50;

var

a:array[1..max,1..max] of integer;

i,j,n,s,k:integer;

begin

writeln('wvedite razmernost matrici');

readln(n);

writeln('wvedite matricu ',n,' x ',n);

for i:= 1 to n do

begin

for j:= 1 to n do

read(a[i,j]);

end;

s:=0;

k:=0;

for i:= 1 to n do

begin

for j:= 1 to n do

if (j mod 2<>0) and (i mod 2<>0) then

begin

s:=a[i,j]+s;

k:=k+1

end;

s:=round(s/k);

writeln('sredne arifmet znashenie s neshetnimi indeksami ravno ', s);

readkey

end.

MOGZ ответил