Дан массив E(10). Составить программку обработки массива:1. Положительные элементы массива
Дан массив E(10). Составить программу обработки массива:
1. Положительные элементы массива заменить нулями.
2. Найти число частей массива одинаковых 5.
3. Отыскать сумму чисел, неравных 3.
Все это должно быть в одной задаче, решите плиз отменно, даю много баллов.
Ах, да, все это на языке паскаль.
Юля Олистратова
Могу написать алгоритм на языке C++ либо JavaScript. :)
1 ответ
Diana Mumanova
var sum,c,i,l:integer;
E:array[1..10] of integer;
begin
writeln('Введите числа');
for i:=1 to 10 do begin
read(e[i]);
if e[i]gt;0 then e[i]:=0;
if e[i]=5 then l:=l+1;
if e[i]lt;gt; 3 then sum:=sum+e[i];
end;
writeln('Приобретенный массив');
for i:=1 to 10 do
write(e[i]:4);
writeln;
writeln('Сумма чисел, не одинаковых трем равна ',sum);
writeln('Число частей массива, одинаковых 5 равна ',l);
end.
E:array[1..10] of integer;
begin
writeln('Введите числа');
for i:=1 to 10 do begin
read(e[i]);
if e[i]gt;0 then e[i]:=0;
if e[i]=5 then l:=l+1;
if e[i]lt;gt; 3 then sum:=sum+e[i];
end;
writeln('Приобретенный массив');
for i:=1 to 10 do
write(e[i]:4);
writeln;
writeln('Сумма чисел, не одинаковых трем равна ',sum);
writeln('Число частей массива, одинаковых 5 равна ',l);
end.
Davkov Artjom
Упс
Пашка
Щас еще доделаю
Молехонова
Стефания
Привет! Упрашиваю, помогите мне с этими 2-мя заданиями! http://znanija.com/task/10852513
Никита Жаровщиков
http://znanija.com/task/10852641
Ваня Гиззатов
Не поможете?(
Юля Скиндер
Я пока пишу другую, желайте помощь быстрее? Ставьте больше баллов
Jediev Serega
Я подожду. Но Вы решите моё?(
Серега Кульмаков
ДА возможно
Даниил Мейксон
Вы мне очень поможете! Буду ожидать как Хатико)
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Облако тегов