Дан одномерный вещественный массив из n чисел. написать программу нахождения суммы элементов массива стоящих на нечетных позициях (индекс). блок схема не нужна только программа 10
Var s:real; n,i:integer; a:array[1..1000] of real;
begin write('Введите кол-во элементов: '); readln(n); writeln('Введите элементы: '); for i:=1 to n do read(a[i]); s:=0; for i:=1 to n do if odd(i) then s:=s+a[i]; writeln('Сумма: ',s);
var c, a: array[1..20] of integer; i: integer; begin write('Первый массив '); for i := 1 to 20 do begin c[i] := i * (-5); write(c[i], ' '); end; writeln; write('Преобразованный массив '); for i := 1 to 20 do begin a[i] := c[20 - i + 1]; write(a[i], ' '); end; end.
ИЛИ Программа не использующая два массива, а просто переворачивающая первый
var c: array[1..20] of integer; i: integer; begin write('Первый массив '); for i := 1 to 20 do begin c[i] := i * (-5); write(c[i], ' '); end; writeln; write('Преобразованный массив '); for i := 20 downto 1 do write(c[i], ' '); end.
Достоинство числовой - она сохранить числовые значения будь цены, счета, цифры, пароли. недостатки - не может хранить текст Графическая - достоинства: Может хранить изображения, используемые как доказательства, но не может передавать звук. Звуковая - передает звуки, музыку, голос. Недостаток не может передать изображение Видео - может передавать кадры и изображения соединные в последовательность, но не может передавать звук. Но если рационально и правильно соединить несколько типов информации, то мы сможем передать любые данные.
s:real;
n,i:integer;
a:array[1..1000] of real;
begin
write('Введите кол-во элементов: '); readln(n);
writeln('Введите элементы: ');
for i:=1 to n do
read(a[i]);
s:=0;
for i:=1 to n do
if odd(i) then s:=s+a[i];
writeln('Сумма: ',s);
end.