Составьте программу, которая...

Тема в разделе "Информатика", создана пользователем djcoloboc, 10 мар 2010.

  1. djcoloboc

    djcoloboc New Member

    Составьте программу, которая формирует массив из 12 случайных целых чисел на промежутке от -40 до 10 и находят элементы, больше -10 и меньше5
     
    djcoloboc, 10 мар 2010
    #1
  2. EdgarD

    EdgarD New Member

    var a:array [1..12] of integer;
    i:integer;
    begin
    for i:=1 to 12 do
    read (a);
    for i:=1 to 12 do
    if ((a)>-40) and ((a)<10) then
    begin
    if((a)>-10) and ((a)<5) then
    writeln(a);
    end
    else writeln('число превышает промежутки');
    end.
     
     
    вроде так )))) проверь может сам что подправишь
     
    EdgarD, 10 мар 2010
    #2

Поделиться этой страницей

Наша группа