Ответы на вопрос:
есть сомнения в том первый элемент массива это 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.
Популярно: Информатика
-
Примари04.04.2022 15:24
-
mma050917.07.2020 05:48
-
adelinanurgazi16.01.2020 17:06
-
сердянечок25.11.2022 01:00
-
Lisa2003black02.02.2022 07:04
-
Profesor2Max07.05.2023 08:25
-
123456789085927.07.2021 03:38
-
kmidakova07.05.2020 08:09
-
Katya55200206.02.2021 04:01
-
LadaSova27.06.2023 17:45