Написать код в Pascal.
Задача: Сформулировать и вывести на экран в виде таблицы массив A[1.4,1.6], заполнив его целыми случайными числами из интервала [30,75]
Найти среднее арифметическое каждого столбца.
Написать код в Pascal.
Задача: Сформулировать и вывести на экран в виде таблицы массив A[1.4,1.6], заполнив его целыми случайными числами из интервала [30,75]
Найти среднее арифметическое каждого столбца.
Напишите программу. Заполните массив А из 20 элементов по формуле А[i] = i^2 и распечатайте в столбец все его элементы в виде: <имя элемента> = <значение элемента> . По результатам выполнения программы заполните таблицу:
А(1) =
А(2) =
А(3) =
А(4) =
А(5) =
и т.д.
Составить программу, которая вводит с клавиатуры значения элементов массива a[1.n] состоящего из n целых чисел и вычисляет среднее арифметическое элементов массива. Число n ввести с клавиатуры.
Написать программу Pascal
1. Найти среднее арифметическое и среднее геометрическое двух чисел.Написать программу (Паскаль)
Напишите программу на языке Pascal для следующей задачи: Определить число n, при котором сумма квадратов ряда чисел 1, 2, …, n не превысит некоторого целого числа K, т.е. число K вводится с клавиатуры
ЯЗЫК: Pascal
Const n=5; m=4;
var s, i, j : integer;
a: array [1.n, 1.m] of
integer;
begin
for i:= 1 to n do
for j:= 1 to m do
a[i,j]:=random(10);
for i:=1 to n do begin
for j:=1 to m do
write ( A[i,j]:5 );
writeln;
end;
S:=0;
For i:=1 to n do
For j:=1 to m do
S:=S+a[i,j];
Writeln(‘сумма элементов
массива равна ‘,S);
end.
Изменить программу таким образом, чтобы:
a. Матрица состояла из 15 элементов вещественного типа;
b. Значения элементов должны меняться в интервале от 3 до 7;
c. В результате выполнения программы должно быть найдено
произведение всех элементов матрицы;
d. Вычисляться сумма элементов матрицы по строкам.
Даю 50 баллов.
№1
Дан массив A (15).
1. Найти кол-во ненуливых элементов
2. Поменять местами 2-ой и максимальный элементы
№2
Дан массив A(8,10)
1. Найти кол-во положительных элементов каждого столбца , результат напечатать
сформировать одномерный массив из n элементов найти сумму тех элементов массива которые одновременно имеют четные и положительные значения.элементы вводятся с клавиатуры. Написать программу в pascale! Сделать в масиве
Решите задачу в Pascal:
Дано 4-х значное число, которое вводится с клавиатуры.
Найти и вывести на экран произведение 1 и 4го числа(разделив 4-х значное число),
если сумма 2 и 3 числа >5;
иначе — вывести на экран сумму 2 и 4 числа
Нужно написать программу на паскале
Вводится произвольная последовательность действительных чисел. Найти наименьшее из всех чисел.
И сделать блок схему или алгоритм
Помогите решить. Надо написать на языке паскаль 7 вариант
Скільки разів буде виконано цикл
for x in range (5, -2, -2) ?
1) 7
2) 4
3) 5
4) жодного разу
Артур составляет 5-буквенные коды из букв А, П, О, Р, Т. Каждую букву нужно использовать ровно один раз, при этом нельзя ставить рядом две гласные. Сколько различных кодов может составить Артур?
Напишите с объяснением, пожалуйста
Решите задачу.
У исполнителя имеется две команды:
1. Прибавить 3
2. Отнять 1
Какое минимальное количество команд необходимо выполнить исполнителю для получения числа 9 из числа 2 Выберите один ответ:
a.5
b.2
c.7
d.3
Write a program that lets you know if you can have a key or not, based on your role at the school.
First ask for the user’s role at the school. They can be a student, administrator, or a teacher. (And remember that capitalization is important! ‘Student’ is not the same as ‘student’.)
Example 1: Administrator or Teacher
For example, if this was the input:
Are you an administrator, teacher, or student?: teacher
This should be the output:
Administrators and teachers get keys!
Example 2: Student
And if this was the input:
Are you an administrator, teacher, or student?: student
This should be the output:
Students do not get keys!
(Note: You should also be able to handle a situation where the user enters a value other than administrator, teacher or student and tell them they must be one of the three choices!)
Example 3: Other
If they input anything else:
Are you an administrator, teacher, or student?: secretary
This should be the output:
You can only be an administrator, teacher, or student!
РЕШИТЕ ЗАДАЧУ ПО ИНФОРМАТИКЕ В excel
Во время каникул Незнайка решил поработать продавцом газет и проработал целую неделю. За каждый проданный экземпляр газеты «Известия Цветочного города» он получал 10 монет. За каждый экземпляр «Технической газеты Винтика и Шпунтика» — 7 монет. За каждый экземпляр «Медицинских новостей доктора Медуницы» — 8 монет. В понедельник он продал 8 экземпляров Известий, 7 экземпляров Технической газеты и 5 экземпляров Медицинских новостей. Во вторник было продано 13 экземпляров Известий, 4 экземпляра Технической газеты и 8 экземпляров Новостей. В среду — 10 Известий, 10 Технических и 12 Новостей. В четверг — 8 Известий, 7 Технических газет и 15 Медицинских новостей. В пятницу — 10 штук Известий, 5 штук Технических и 8 штук Медицинских. В субботу — 9 Известий, 13 Технических газет и 8 Медицинских новостей. В воскресенье — 5 экземпляров Известий, 6 экземпляров Технической и 9 экземпляров Медицинской.
Сколько экземпляров каждой газеты Незнайка продавал за каждый день недели и сколько — за всю неделю; сколько денег он зарабатывал за каждый день недели и сколько — за всю неделю; сколько денег он получал за продажу каждой газеты за всю неделю?
КАКУЮ ФОРМУЛУ НАДО ПИСАТЬ В ПУСТЫХ ЯЧЕЙКАХ? (Знаю, что должна быть формула Сумма произведений) ПИШИТЕ ФОРМУЛУ ПОДРОБНО, ПОЖАЛУЙСТА
Пацаны срочно будет ли звуковой сигнал загрузки биос без видеоядра?
Що таке «висловлювання» в інформатиці?a.
Це думка, яку може висловлювати людина
b.
Це речення, яке містить твердження про певний об’єкт або про зв’язки між об’єктами
c.
Фрагмент алгоритму, який містить послідовність команд, яка виконуватиметься вказану кількість разів
d.
Алгоритм, який обирає сценарій роботи в залежності від умови
Сместиться на (—12,16) Повтори 4 раза Сместиться на (а, Ъ) Сместиться на (—3,1) Сместиться на (2, —2) конец
Дан целочисленный массив . Найти индекс максимального элемента.
const
m=4;
n=6;
var
a:array[1.m,1.n] of integer;
i,j:integer;
p:real;
begin
randomize;
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(46)+30;
Write(a[i,j]:3)
end;
Writeln
end;
Writeln;
for j:=1 to n do
begin;
p:=0;
for i:=1 to m do
p:=p+a[i,j];
Write(p/m:6:2)
end;
Writeln
end.
program mas;
var A:array[1.4,1.6] of integer;
i, j: integer;
summ: integer;
id: integer;
begin
randomize;
for i := 1 to 4 do
begin
for j := 1 to 6 do
begin
A[i, j] := random(30) + 45;
write(A[i,j]);
write(‘ ‘);
end;
writeln(»);
end;
for j := 1 to 6 do
begin
for i := 1 to 4 do
begin
summ := summ +A[i, j];
end;
writeln(summ / 4);
summ := 0;
end;
readln;
end.