сервис вопросов и ответовДан массив A из 100 элементов. Если сумма элементов чѐтная, заменить все положительные чѐтные элементы – нулями, иначе – переставить местами первый и
10-11 класс|
|
последний элемент.
Nastenachepinskaya
24 февр. 2014 г., 20:28:13 (10 лет назад)
Akmusha93
24 февр. 2014 г., 22:48:29 (10 лет назад)
Program bkmyehf;
const n=100;
var a:array[1..n] of integer;
temp,sum, i,j: integer;
begin
sum:=0;
randomize;
writeln('*** alphaues is thinking... ***');
for i:=1 to n do
begin
a[i]:=random(100)+1;
sum:=sum+a[i];
end;
if sum mod 2 = 0 then
begin
writeln('Сумма элементов чётная');
for i:=2 to n do
begin
if (a[i]>0) AND (i mod 2 = 0) then a[i]:=0;
end;
end
else
begin
writeln('Сумма элементов нечётная');
temp:=a[1];
a[1]:=a[i];
a[i]:=a[1];
end;
for i:=0 to 9 do
begin
for j:=1 to 10 do
write(a[i*10+j]:4);
writeln();
end;
end.
Ответить
Другие вопросы из категории
Как в этой программе задать свой промежуток от m до n а не от 1 до n
program z;
var n,i,j,s,mx,imx:integer;
begin
repeat
write('n>0 n=');
readln(n);
until n>0;
mx:=1;
imx:=1;
for i:=1 to n do
begin
s:=0;
for j:=1 to i do
if i mod j=0 then s:=s+j;
if s>mx then
begin
mx:=s;
imx:=i
end;
end;
writeln('Максимальную сумму делителей имеет число ',imx,' сумма=',mx);
readln
end.
Дана непустая последовательность натуральных чисел, за которой следует 0. Составьте программу нахождения суммы чисел этой
последовательности.Запустите программу на выполнение...(ПО ПАСКАЛЮ..)
Читайте также
Дан массив, состоящий из 100 целых чисел:
а) Вывести все числа, которые встречаются в этом массиве по нескольку раз;
б) Вывести все числа, которые встречаются в массиве только по одному разу.
Пожалуйста, помогите с задачей в паскале! Написать решение задачи для программы Паскаль. Спасибо)
Имеется
массив А из N произвольных чисел (А(N)), среди которых есть положительные, отрицательные и
равные нулю. Используя оператор цикла, составить программу, выполняющую задачу:
№1. Дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные значения от 0 до 100. Напишите программу, которая позволит найти сумму
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
1)дан одномерный массив из 5 элементов.найти сумму положительных элементов. 2)Дан одномерный массив из 7
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
Паскаль. 12.Дан массив А(3*4). Найти сумму первых отрицательных элементов в каждом столбце. 13.Даны два массива А(3*3)
и В(3*3). Вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.
17.Дан массив А(3*4). Заменить все отрицательные элементы на противоположные.
Вы находитесь на странице вопроса "Дан массив A из 100 элементов. Если сумма элементов чѐтная, заменить все положительные чѐтные элементы – нулями, иначе – переставить местами первый и", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.