profile
Размещено 5 лет назад по предмету Информатика от anastasijaturk

не получается сделать программу в ABCпаскаль, в чем ошибка?

uses crt;
var
a: array [1..20] of index;
begin
for i:= 1 to 15 do;
readln(a[i]);
for i:= 1 to 15 do;
writeln(a[i]);
for i:= 1 to 15 do;
if a[i] mod 2 = 0 then S:=S+1;
S:= S+a[i];
writeln(S);
end.

  1. Ответ на вопрос
    Ответ на вопрос дан 4500zenja
    в var нет переменных i и S. В остальном задача принимает 15 чисел и проверяет, сколько чётных среди них.
    P.S. Надо переделать!Зачем складывать член массива с количеством? И ещё - сперва опиши, что такое S - программа же не знает, с чем складывать S!
  2. Ответ на вопрос
    Ответ на вопрос дан petyaGavrikov
    uses crt;
    var
    a: array [1..20] of integer;
    k,s,i:integer;
    begin
    writeln;
    for i:= 1 to 15 do readln(a[i]);
    for i:= 1 to 15 do write(a[i],' ');
    writeln;
    for i:= 1 to 15 do
     if a[i] mod 2 = 0 then
      begin
      S:=S+a[i];
      k:=k+1;
      end;
    writeln('S = ',s,' k = ',k);
    end.

    Пример:
    14
    54
    87
    20
    75
    12
    67
    84
    35
    11
    51
    34
    80
    56
    87
    14 54 87 20 75 12 67 84 35 11 51 34 80 56 87 
    S = 354 k = 8
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.