Помогите пожалуйста сделать задачу в паскале АВС. Нужно первый элемент отрицательного массива заменить на ноль.
10-11 класс
|
var
a: array [1..3] of shortint;
i: byte;
begin
for i := 1 to 3 do
begin
a[i] := random(-1024, -1);
writeln(String.Format('a[{0}] => {1}', i, a[i]));
end;
writeln();
a[1] := 0;
for i := 1 to 3 do writeln(String.Format('a[{0}] => {1}', i, a[i]));
end.
Другие вопросы из категории
Какого пункта меню нет в Блокноте?
а)Файл.
б)Правка.
в)Формат.
г)Вставка.
Читайте также
2.
Все натуральные числа, начиная с 1, выписаны в одну строку без пробелов.Требуется написать программу, определяющую, какая цифра стоит в этой строке
на заданном месте.
Технические требования.
Имя входного файла: INPUT.TXT
Имя выходного файла: OUTPUT.TXT
Формат входных данных:
В единственной строке входного файла записано целое число N - длина слова (1 ≤ N≤ 100000000).
Формат выходных данных:
Выходной файл содержит одну искомую цифру.
Примеры файлов входных данных: Примеры файлов выходных данных:
21 5
1.Определите сколько нечетных чисел среди четырех заданных чисел
2.Вычислите, является ли четырехзначное число счастливым
Задать массив из 30 положительных элементов случайным образом.
• найти кол-во нечётных элементов всего массива;
• найти минимальный элемент;
• элементы, кратные 10, заменить единицами и вывести новый массив.
Помогите, пожалуйста, решить задачи в паскале!
2. Найти квадраты всех отрицательных чисел среди N заданных.
3. Найти количество чисел, среди N введенных,которые имеют нечетные порядковые номера, а сами являются четными числам.
4. напишите программу для вычисления суммы:
- 1*1!+2*2!+3*3!+....+n*n!
- 1*3+3*5+5*7+...n(n+2)
- 1+11+111+...+111+1-n слагаемых.
Помогите, пожалуйста написать программы для паскаля, очень нужно. Заранее спасибо.