Program R1;
Var a:array[1..100] of integer;
i,n:integer;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(n);
for i:=1 to n do read(a[i]);
for i:=n+1 downto 2 do
a[i]:=a[i-1] ;
a[1]:=7 ;
1
текстовый редактор-набираешь текст
текстовый процессор преобразует 10(или 2) код в символы
2
без понятия
3
книжная- вертикальный лист (как в книгах)
альбомная горизонтальная (с лева на право)
4
многими, зависит от программы
5
вид->открыть...->путь к файлу->клик по файлу.
6
разные, тот-же microsoft word (или WordPad)
1.Начало
2.Возьми рюкзак
3.Растегни его
4.Возьми всё что нужно
5.Положи их в рюкзак
6.Застегни рюкзак
7..Конец
Var a:array [1..6] of integer; b:array [1..6] of integer; c:array [1..6] of real; i:integer; begina[1]:=5; b[1]:=30;a[2]:=9; b[2]:=52;a[3]:=15; b[3]:=90;a[4]:=27; b[4]:=155;a[5]:=46; b[5]:=270;a[6]:=60; b[6]:=465;for i:=1 to 6 doc[i]:=a[i]/b[i];for i:=1 to 6 dowriteln('кВт/кг ',i,'-го генератора = ',c[i]);end.
#include <iostream>
using namespace std;
int main() {
int n, a[15], b[8];
cin >> n;
for(int i = 0; i < n; ++i) cin >> a[i];
int cnt = 0
for(int i = 1; i < n; i+=2) {
b[i / 2] = a[i];
++cnt;
}
cout << "Длина массива b: " << cnt << endl;
for(int i = 0; i < cnt; ++i) cout << b[i] << " ";
}