Дан массив A(n). У нечётных элементов откинуть дробную часть числа, а
Дан массив A(n). У нечётных частей откинуть дробную часть числа, а у частей с индексами, дающими остаток 1 при дробленьи на 3, отбросить целую часть числа.
Как будет смотреться программа в Паскале?
Яна Асланбекова
Как всегда: пока Вы это не написали, моя программка разыскивала чётные индексы заместо нечётных))
Максим Розважевский
Неувязка в том, что я вроде бы читаю условие, но малюсенько внимания обращаю на слова)))
Руслан Биркалов
Иногда 15 раз перечитываю, и только на 16 разумею, что сделать-то нужно.....
Денчик
Дан массив A(n). У нечётных частей откинуть дробную часть числа, а у элементов с индексами, дающими остаток 1 при разделеньи на 3, откинуть целую часть числа.Как будет смотреться программка в Паскале?
1 ответ
Вероника
Const
N = 13;
Var
A:array[1..N] of real;
i:integer;
Begin
Write('Начальный массив A(',N,'): ');
For i:= 1 to N do
Begin
A[i]:=random*100;
Write(A[i]:0:3,' ');
End;
WriteLn;
Write('Выходной массив A(',N,'): ');
For i:= 1 to N do
Begin
if i mod 2 lt;gt; 0 then A[i]:=Trunc(A[i]);
if i mod 3 = 1 then A[i]:=Frac(A[i]);
Write(A[i]:0:3,' ')
End
End.
N = 13;
Var
A:array[1..N] of real;
i:integer;
Begin
Write('Начальный массив A(',N,'): ');
For i:= 1 to N do
Begin
A[i]:=random*100;
Write(A[i]:0:3,' ');
End;
WriteLn;
Write('Выходной массив A(',N,'): ');
For i:= 1 to N do
Begin
if i mod 2 lt;gt; 0 then A[i]:=Trunc(A[i]);
if i mod 3 = 1 then A[i]:=Frac(A[i]);
Write(A[i]:0:3,' ')
End
End.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Облако тегов