составить программу которая заменяет все нечетные числа на 31 массив из 15 целых чисел формируется случайным образом в интервале [20;30]
10-11 класс
|
Program Task;
Const n = 15;
Var a: Array [1..n] of Integer;
i: Integer;
Begin
Randomize;
For i := 1 To n Do
a[i] := Random(30 - 20 + 1) + 20;
WriteLn('Массив:');
For i := 1 To n Do
Write(a[i], ' ');
WriteLn;
For i := 1 To n Do
If a[i] Mod 2 = 1 Then
a[i] := 31;
WriteLn('Результат:');
For i := 1 To n Do
Write(a[i], ' ');
ReadLn;
End.
Другие вопросы из категории
файлов. Маска представляет собой последовательность букв, цифр и
прочих допустимых в именах файлов символов, в которых также
могут встречаться следующие символы:
Символ «?» (вопросительный знак) означает ровно один произвольный символ.
Символ «*» (звёздочка) означает любую
последовательность символов произвольной длины, в том числе
«*» может задавать и пустую последовательность.
Определите, какое из указанных имён файлов удовлетворяет маске:
?mur*r.?st
1) mur.lst
2) omurr.sst
3) omur.sts
4) mur.lst
последовательность: 4, 1, 9, 3, 7, 5, из всех чисел которые больше 4 вычесть 3 затем удалить из всей последоательности нечетные числа
Пожалуйста с решением
1)В системе счисления с некоторым основанием десятичное число 29 записывается в виде 41.Укажите это основание?
2)Укажите через запятую в порядке возрастания все основания системы счисления,в которых запись числа 24(в десятеричной системе счисления) оканчивается на 4.
Очень буду вам благодарна,заранее спасибо!!!!)
Читайте также
Использовать можно функции pos, length, copy, delete, insert.
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
в задаче требуется написать программу которая по двум заданным числам находила бы в диапазоне между этими числами все простые числам где простое число которое имеет всего лишь два делителя то есть оно делится на единицу и на само себя и больше оно не на что не делиться например -3 7 11 помогите )) олимпиада по инфе )) даю максимум баллов ))