сервис вопросов и ответовпрограмку составить нужно
5-9 класс|
|
Прикрепленные изображения
Pupsik445
13 янв. 2014 г., 23:34:03 (10 лет назад)
Darkozer
14 янв. 2014 г., 2:02:02 (10 лет назад)
var
i: integer;
a: array[1..10] of integer;
begin
writeln('Исходный массив:');
for i := 1 to 10 do
begin
a[i] := random(30, 50);
write(a[i]:3)
end;
writeln;
writeln('Преобразованный массив:');
for i := 1 to 10 do
begin
if a[i] > 40 then a[i] := 1
else
if a[i] < 40 then a[i] := 0;
write(a[i]:3)
end
end.
Другой вариант:
var
i: integer;
a: array[1..10] of integer;
begin
writeln('Исходный массив:');
for i := 1 to 10 do
begin
a[i] := random(30, 50);
write(a[i],' ')
end;
writeln;
writeln('Преобразованный массив:');
for i := 1 to 10 do
begin
if a[i] > 40 then a[i] := 1
else
if a[i] < 40 then a[i] := 0;
write(a[i],' ')
end
end.
LanaBanana13
14 янв. 2014 г., 4:36:24 (10 лет назад)
На каком языке?
Loshkarev62
14 янв. 2014 г., 7:39:53 (10 лет назад)
а зачем здесь делить на 3?
Ответить
Другие вопросы из категории
какая из перечисленных клавишь стандартной QWERTY- клавиатуры не является парной
?
а)Ctrl б)Shift в)Alt г)Tab
отметьте информационные процессы (действия с информацией) : разговор по телефону , посадка дерева , кассета любимой музыкальной группы , разгадывание
кроссворда , просмотр телепередач , учебник математике
Читайте также
Поомогите, пожайлуста. Нужно составить программу на паскале. Ежемесячная стипендия студента составляет a руб.Расходы на проживание превышают стипендию
и составляют b руб(в месяц).Рост цен ежемесячно увеличивает расходы на 3%,составьте программу расчета необходимой суммы денег,которую нужно единовременно попросить у родителей,чтобы можно было прожить 10 месяцев,используя эти деньги.
мне ооочень срочно нужно!!! пожалуйста помогите!!!!!!!!помогите решить 2 задачи по Ивт в Паскале: 1)составить программу вычисления в массиве A(
N) произведения нечетных элементов 2)Составьте программу вычисления в массиве B(N) максимального среди отрицательных элементов и его номера. заранее огромное спасибо! очень нужно!
Нужно составить програмку, чтоб решить пример: 39*54-84 в квадрате. Program product; var a,b,c:integer;
a:=39*54-sqr(84));
readln
end.
Напишите ошибку, ну и объясните, если не сложно)
Помогите!Очень нужно)))
В строке символов определить кол-во букв А.
Нужно составить программу на Паскале))
Вы находитесь на странице вопроса "програмку составить нужно", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.