cpu > процессор
ram > оперативная память
rom > постоянная память
hdd > жёсткий диск
sound card > звуковая карта
video card > видео карта
1.
var
t, c : array [1..25] of real;
sumt, sumc : real;
i : integer;
begin
for i : = 1 to 25 do read (t[i]);
for i : = 1 to 25 do read (c[i]);
sumt : = 0; sumc : = 0;
for i : = 1 to 25 do
begin
sumt : = sumt + t[i];
sumc : = sumc + c[i];
end;
writeln ('средний вес = ', sumt / 25);
writeln ('средний рост = ', sumc / 25);
end.
2.
const
maxn = 1000;
var
a : array [1..maxn] of integer;
n, i : integer;
begin
read (n); //если n дано
//если n не дано, нужно читать до конца строки
//while not eoln do begin n : = n + 1; read (a[n])} end;
for i : = 1 to n do read (a[i]); //если n дано
for i : = n downto 1 do
if i mod 2 = 1 then write (a[i], ' ');
end.
тесты: а) 8 5 1 б) 9 8 4 6 1
Поделитесь своими знаниями, ответьте на вопрос:
Как называется бланк заполнением которого создается структура запроса