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

Проверьте программу на правильность написания, пожалуйся

program p1;
var a: array [1..5] of real;
i:integer; s:real;

begin
s:=0;
for i:=1 to 5 do
begin
write('a[',i,']=');
readln(a[i]);
if a[i] > 0 then s:=s+1;
end;
writeln;
writeln('количество положительных элементов = ', s);
write('элементы, имеющие нечетные индексы:');
for i:=1 to 5 do
if i mod 2 <> 0 then write(' ',a[i]);
end.

  1. Ответ на вопрос
    Ответ на вопрос дан FunSociety

    program p1;

    var a: array [1..5] of real;

    i:integer; s:real = 0;

    begin

    for i:=1 to 5 do

    begin

    write('a[',i,']=');

    readln(a[i]);

    if a[i] > 0 then s:=s+1;

    end;

    writeln(#13#10,'количество положительных элементов = ', s:0:1);

    write('элементы, имеющие нечетные индексы:');

    for i:=1 to 5 do

    if i mod 2 <> 0 then write('  ',a[i]:0:1);

    end.  

    Вот, а так все идеально))

  2. Ответ на вопрос
    Ответ на вопрос дан ingr

    в целом программа работает. Хотя могу дать пару замечаний

    индексную переменную лучше объявлять в самом цикле.

    в паскале переменной не обязательно задавать стартовое нулевое значение, она и так будет равна 0.

    вместо s:=s+1 можно написать s += 1

    ну и отступы...

    после правок будет выглядеть примерно так:

    program p1;

    var

       a : array [1..5] of real;

       s : real;

    begin

       for var i:= 1 to 5 do

       begin

           write('a[', i, ']=');

           readln(a[i]);

           if a[i] > 0 then s += 1;

       end;

       writeln;

       writeln('количество положительных элементов = ', s);

       write('элементы, имеющие нечетные индексы:');

       for var i := 1 to 5 do if i mod 2 <> 0 then write(' ', a[i]);

    end.

Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 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) их не спросили

Информация

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