дан массив А,содержащийф последовательность чисел:0,5;12;-18;16;13;5;8;0 Сформировать массив В.каждый элемент которого вычисляется по
5-9 класс
|
формуле:В(I)=A(I)/2 Вывести на печать элементы массива В Вычислить сумму элементов массивов А И В Вывести на печать первый элемент массива А и первый элемент массива В
Есть сомнения в том первый элемент массива это 0.5 или же это 2 элемента 0 и 5 и тогда объявление массивов будет следующим var a:array[1..9] of integer=( 0,5,12,-18,16,13,5,8,0 ); b: array[1..9] of real;
Program massiv;
Uses Crt;
var a:array[1..8] of real =(0.5,12,-18,16,13,5,8,0);
b: array[1..8] of real;
sum:real
i:integer;
begin
clrscr;
write('Массив B: ');
sum:=0;
for i:=1 to 8 do
begin
b[i]:=a[i]/2;
sum:=sum+a[i]+b[i];
write(b[i]:2:2);
end;
writeln;
writeln('Сумма элементов массивов а и b: ',sum);
writeln(' Первый элемент массива а : ',a[1]:2:2);
writeln(' Первый элемент массива b : ',b[1]:2:2);
readkey;
end.
Другие вопросы из категории
миллиард очень большое число.за тридцать лет с первого января тысяча девятьсот семидесятого года по тридцать первое декабря тысяча девятьсот девяносто девятого года прошло десять тысяч девятьсот пятьдесят семь суток, что составляет двести шестьдесят две тысячи девятьсот шестьдесят восемь часов, или девятьсот сорок шесть миллионов шестьсот восемьдесят четыре тысячи восемьдесят секунд. значит, за тридцать не пройдет и миллиарда секунд.
P.S. я бы сам сделал лень))
Чему равно минимальное возможное основание сист. сч. ?
Читайте также
от -100 до 100. Определить минимальное положительное число.
2) Дан массив, состоящий из 10 чисел. Найдите номера тех элементовв масива, которые наименее различаются.
1-й равен значению текущего индекса, увеличенному на 3; 2-й равен квадрату предыдущего индекса; 3-й равен сумме двух предыдущих элементов. 2 Задание : сформируйте массив, содержащий 15 элементов ,с помощью датчику случайных чисел. Получите новый массив,каждый элемент которого равен сумме соответствующего элемента исходного массива и его индекса. В полученном массиве удвойте элементы,которые меньше заданного с клавиатуры числа А,и найдите их сумму . Выведите на экран исходные и полученные результаты .
1) дан массив А(8)
-6.4;5.6; -0.1;46.7;7;-3.8;0.23;6
а) сформировать массив В , каждый элемент которого вычисляется по формуле В(I) = A(I)*5
вывести на печать элементы массива В
В) вычеслить произведение масивов А и В
С) вывести на печать пятый элемент массива А и первый элемент массива В.
задание - все три заднтя объединить в один алгоритм.
---------
2) ввести четырехзначное число. есть ли в нем одинаковые цифры?
1)дан массив А(8):
-6,4 5,6 -0,1 46,7 7 -3 8 0,23 6
1,1)Сформировать массив B,каждый элемент которого вычисляется по формуле B(I)=a(i)*5
вывести на печать элементы массива B
1,2)вычислить произведение элементов массивов A и B
1.3)вывести на печать 5 элемент массива, А и первый элемент массива В
2.Даны 2 массива одинакового размера. Сформировать 3-й массив, каждый элемент которого равен минимальному из элементов с одинаковыми номерами.
3.Заполнить массив из 11 элементов числами 1, 2,3,..,11.
Заранее спасибо.