элементы исходных массивов создаются генератором случайных чисел так, чтобы созданные значения были как положительные, так и отрицательные
10-11 класс
|
type mas=array of integer;
var
a,i,b:mas;
y:real;
procedure zapoln(var a:mas);
var i,n:integer;
begin
n:=length(a)-1;
for i:=1 to n do
begin
a[i]:=random(10);
write(a[i],' ');
end;
writeln;
end;
function sred(a:mas):real;
var i,n,s:integer;
begin
n:=length(a)-1;
for i:=1 to n do s:=s+a[i];
result:=s/n;
end;
begin
setlength(a,8);
write('Массив А: ');
zapoln(a);
setlength(i,13);
write('Массив I: ');
zapoln(i);
setlength(b,9);
write('Массив B: ');
zapoln(b);
y:=(sred(a)+sred(i)+sred(b))/3;
writeln('Y=',y);
end.
Другие вопросы из категории
всех чисел, расположенных после первого нулевого элемента.
Написать на Паскале буду очень благодарен!!
последняя цифра билета являются натуральными ( т.е. делятся на 1 и на само себя ).
преобразования было получено растровое изображение того же размера в 256-цветовой палитре?
1. Население некоторой страны в 1904 году составляло а человек. По переписи населения, проведенной в прошлом году, зарегистрировано b человек. Составить программу вычисления среднегодового прироста населения за этот период.
2. Составить программу определения, является ли введенный год високосным?
3. Составить программу определения размера денежного вклада через t лет после его внесения, если заданы размер начального взноса n и банковский процент b.
4. Для условий из предыдущей задачи определить, через сколько лет размер вклада превысит вдвое первоначальный взнос.
Читайте также
соответствующего элемента исходного массива. в полученном массиве определите насколько максимальный элемент исходного массива отличается от минимального элемента нового массива. выведите на экран исходные и полученные результаты
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы
индексов элементов главной диагонали.Выведите на экран исходный и измененный массивы (программа на языке Паскаля)
2)Составьте программу формирования и вывода на экран одномерного массива, состоящего из удвоенных минимальных элементов строк двумерного массива, заданного с помощью датчика случайных чисел
полученную сумму.
2. Дан массив В(n). Определите произведение элементов, кратных 3. Выведите на экран исходный массив и найденное произведение.
) по возрастанию. Вывести полученный массив. Исходный массив элементов получить с помощью датчика случайных чисел. Значения буквенных переменных задавать с клавиатуры.
Помогите написать программу в QBasic и нарисовать блок-схему(необязательно)