сервис вопросов и ответовПОЖАЛУЙСТА, ПОМОГИТЕ. ОЧЕНЬ НАДО!!!!
5-9 класс|
|
одномерный массив размером [10]заполнить числами с клавиатуры, найти max и min элементы и сумму четных элементов массива.
Anyakarpova87
27 февр. 2015 г., 12:24:01 (9 лет назад)
Taniagrisha
27 февр. 2015 г., 14:08:53 (9 лет назад)
const n=10;
var A:Array[1..10] of integer;
min,max,i,summa:integer;
Begin
For i:=1 to n do
begin Write('Введите элемент' ,i,': '); Read(a[i]);
end;
min:=a[1];
for i:=1 to n do
Begin
if a[i]<min then
begin
min:=a[i];
end;
end;
Writeln('min:',min);
max:=a[1];
for i:=1 to n do
Begin
If a[i]>max then
begin max:=a[i];
end;
end;
Writeln('max: ',max);
summa := 0 ;
for i:=1 to n do
begin
if (a[i] mod 2 = 0) then summa := summa + a[i]
end;
writeln('Сумма четных элементов равна : ', summa);
readln;
end.
Davidosogons
27 февр. 2015 г., 15:58:53 (9 лет назад)
За отметку верных решений как неправильных будут предупреждения.
Ответить
Другие вопросы из категории
Задачка по информатике: Метерологическая станция ведёт наблюдение за темпиратурой воздуха.Результатом одного измерения является целое число от -32 до+32
градусов,которые записываются цепочкой из нулей и единиц минимальной длины ,одинаковой для каждого измерения.Станция зделала 40960 измерений. Опредилите информационный обьём результатов наблюдений
Читайте также
Пожалуйста помогите по информатике
1) исключи лишнее:
а)микрофон, б)колонки, в) наушники , г) монитор
2)исключи лишнее:
а)процессор, б) монитор, в)клавиатура, мышь
3)установите соответствие. Устройство ПК:
1. клавиатура
2. модем
3.центральный процессор
назначение устройств:
а)передача цифровой информации через каналы связи
б)хранение информации
в)обеспечение общего управления ПК, осуществление вычислений по программе, хранящейся в оперативной памяти
г)визуальное отображение информации, находящейся в оперативной памяти
д)ввод алфавитно-цифровых символов
6.Раздели на группы и дай название каждой группе:
а)принтер,б)сканер,г)мышь,д)проектор,е)веб камера,ж)процессор,з)колонки,и)микрофон, к) монитор
Пожалуйста помогите очень срочно.
РебяТ помогите очень надо, решит не могу не был на уроках, а она мне дала задачу.
Массив содержит 20 случайных чисел из промежутка [1..37] Выводит на экран эдементы больше 11, но меньше 22 ПОжалуйста помогите)
ПОЖАЛУЙСТА ПОМОГИТЕ ОЧЕНЬ НАДО
Написать программу, которая "задумывает" число в диапазоне от 1 до 10 и предлагает пользователю угадать число за 5 попыток.
Выбрать любые 2 десятичных двуразрядных числа больше 15, представить их в системах счисления с основаниями 2,5,8,16. С числами в каждой системе
счисления выполнить все арифметические операции. Пожалуйста помогите очень надо! :(
пожалуйста помогите очень надо!!! В массиве храниться информация о стоимости товаров. Составьте программу, которая определяет стоимость самого
дешевого(дорогого) товара и его индекс.
вот программа но в ней где-то ошибка
program xxx;
var a:array [1..10] of integer;
i, max, min:integer;
begin
for i:=1 to 10 do read(a[i]);
min:=1;
for i:=2 to 10 do
if a[i]<min then min:=a[i];
writeln('a[',i,']=',a[i]);
max:=a[i];
for i:=2 to 10 do
if a[i]>max then max:=a[i];
writeln('a[',i,']=',a[i]);
end.
Вы находитесь на странице вопроса "ПОЖАЛУЙСТА, ПОМОГИТЕ. ОЧЕНЬ НАДО!!!!", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.