Пятница, 28.04.2017, 01:35
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите плиз!!!!!!
Помогите плиз!!!!!!
СашокДата: Воскресенье, 24.01.2010, 18:57 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 6
[ 0 ]
Статус: Offline
Срочно надо! Создать программу:
Дан одномерный массив чисел. Вычислить количество отрицательных и положительных элементов и элементов равных нулю. Размерность массива – 20. Заполнение массива осуществить с клавиатуры.
 
ignorerДата: Воскресенье, 24.01.2010, 21:15 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
я ж тебе её решал
Code
var a : array[1..20] of integer;
       i, x, y, z : integer;
begin
    cls;
    repeat
     inc(i);
     read(a[i]);
    until i=20;
    for i:=1 to 20 do begin
     if a[i]<0 then inc(x);
     if a[i]=0 then inc(y);
     if a[i]>0 then inc(z);
    end;
    writeln('меньше 0: ', x, ' чисел');
    writeln('равно 0: ', y, ' чисел');
    writeln('больше 0: ', z, ' чисел');
end.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите плиз!!!!!!
Страница 1 из 11
Поиск:

Copyright MyCorp © 2017