В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
simalilova
simalilova
06.03.2023 11:21 •  Информатика

Создайте программу для вычисления среднего арифметического положительных чисел, первое из которых равно 100, а каждое следующее меньше предыдущего на заданное положительное число.

Написать на языке Лазарус

Показать ответ
Ответ:
stasvikulyа
stasvikulyа
24.07.2020 04:16
2) Все записи в базе данных имеют:
Если здесь вопрос понимать "Все записи в таблице реляционной БД имеют", то ответ, скорее всего, 
d) Одинаковое количество полей

3) Укажите правильную последовательность действий при работе с базами данных (составить последовательность из букв):
c) Продумать структуру базы данных 
d) Дать имя каждому полю в базе данных
a) Занести данные в таблицу
b) Осуществить сортировку записей в базе данных

4) Поиск информации– это:
a) выбор информации по определённым правилам

5) Примером базы данных может служить:
Скорее всего
b) Телефонный справочник,
хотя и 
c) Энциклопедия тоже может быть

6) В каком из перечисленных типов полей, данные могут выглядеть таким образом: 
Да или Нет ?
b) В логическом поле

7) В какой из перечисленных пар данные относятся к одному типу?
a) 12.04.98 и 01/02/99;  - тип дата
b) ДА и TRUE (ИСТИНА);  - логический тип

8) База Данных содержит информацию о каждой собаке из клуба собаководства: кличка, порода, дата рождения, пол, количестве медалей. Какого типа должны быть поля?
d) текстовое, текстовое, дата, текстовое, числовое;

Возможно, такие ответы. Хотя многие вопросы некорректны.
0,0(0 оценок)
Ответ:
kostyan2282
kostyan2282
27.04.2020 10:24

program array_k;

var k, n: integer;

var a: array[1..15, 1..15] of integer;

begin

writeln('Задайте порядок матрицы n (0 < n < 15)');

readln(n);

writeln('Задайте число k (0 < k < n)');

readln(k);

for m: integer := 1 to n do

begin

writeln;

for o: integer :=1 to n do

begin

a[m, o] := random(30) + 1;

//+1 - чтобы избежать деления на ноль

write(a[m, o] : 5, ' ')

end

end;

writeln;

for m: integer := 1 to n do

begin

writeln;

for o: integer := 1 to n do

if m = k then write(a[m, o]/a[k, k] : 5 : 2, ' ')

else write(a[m, o] : 5, ' ');

end

end. 

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота