1) Дан одномерный массив размерностью n. Заменить положительные элементы массива единицами, а отрицательные нулями.
10-11 класс
|
2) Дан одномерный массив размерностью n. Найти произведение элементов массива.
Задача 1,2 решена, код представлен во вложеном файле.
Другие вопросы из категории
Условие окончания ввода – ввод числа 0.
2.Случайным образом сгенерировать дату и время. Диапазон изменения годов: 2000 - 2010,
месяцев: 1 - 12, дней: 1-31, часов: 0 - 23, минут: 0 - 59. Вывести сгенерированное
значение в формате: ДД/ММ/ГГГГ ЧЧ:ММ.
3.Массив А из 10 элементов заполнен случайными числами от 2 до 7. Вставить
элемент со значением 0 после элемента с номером N.
Вывести на экран исходный и получившийся массивы.
4.Массив из 10 целых чисел заполнить случайными числами от -5 до 5.
Произвести сортировку массива. Вывести на экран исходный и отсортированный массивы.
Сортировать по убыванию прямым выбором
5.Написать программу, которая запрашивает размерность квадратного двумерного массива, заполняет
массив случайными числами от 1 до 5 и зеркально отражает ее элементы относительно главной
диагонали.
6.Написать программу, которая выводит на экран таблицу символов с кодами от 48 до 127
в формате «символ = код».
Помогите решить плиз на кону допуск к зачету.
как надо переворачивать эти часы, чтобы было ровно 10 мин. помогите пожалуйста !
Читайте также
расположенных между максимальным и минимальным элементами.
Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами
ну или исправьте мое пжл
program fgf;
var mas:array[1..100] of real;
max,min:real;
i,n,c,b:shortint;
p:real;
f1,g:text;
begin;
assign (f1, 'input.txt');
reset (f1);
readln (f1, n);
for i:=1 to N do read (mas[i]);
max:=mas[i];
for i:=2 to N do begin
if mas[i]>max then begin
max:=mas[i];
c:=i;
end;
end;
min:=mas[1];
for i:=2 to N do begin
if mas[i]<min then begin
max:=mas[i];
b:=i;
end;
end;
close(f1);
assign (g, 'output.txt');
rewrite (g);
p:=1;
if b<c then I:=b+1 and c-1
else for I:=c+1 to b-1 do p:=p*mas[i];
if (n<3) or (b+1=c) or (c+1=b) then writeln(g,'0.00') else write(p:3:3) ;
close (g);
end.
арифметическое и количество всех положительных элементов массива))
Помогите составить программу в Паскале, буду благодарна:)
на 3(на языке Паскаль).
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
первого положительного и кончая вторым положительным элементом.