Ulianev77
?>

Що з наведеного не є складовими мови програмування? дані, алфавіт, словник, симантика, синтаксис​

Информатика

Ответы

andreu420082132

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

 

AOS2015

Что значит из строки? Формулируйте лучше. Можно делать через обычный массив, примерно так

var

  a : array [1..100] of integer; // Вместо 100 - максимальное количество чисел

  i, n : integer;

begin

  //Если колчисетво чисел вводится, то этот код
read (n);

for i := 1 to n do

  read (a[i]);

//Если же по уловию задачи задана только строка чисел, то использовать следующий  

//код

while not eoln (input) do

begin

  n := n + 1;

  read (a[n]);

end;

//Далее для обоих вариантов.

for i := 1 to n do

  if a[i] mod 2 = 0 then write (a[i], ' '); //Выведет четные, для нечетных заменить = 0 на = 1 

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Що з наведеного не є складовими мови програмування? дані, алфавіт, словник, симантика, синтаксис​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

pavlino-mkr
Nivanova995
chaa140
studiojanara
zhandarmova
Baidina
eoils-info
boldireve617
taanaami75
alfaantonk
Murad Gushcharin
aromastil88
grafffmc
info49
falileevas