програмку составить нужно
5-9 класс
|
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.
На каком языке?
а зачем здесь делить на 3?
Другие вопросы из категории
?
а)Ctrl б)Shift в)Alt г)Tab
кроссворда , просмотр телепередач , учебник математике
Читайте также
и составляют b руб(в месяц).Рост цен ежемесячно увеличивает расходы на 3%,составьте программу расчета необходимой суммы денег,которую нужно единовременно попросить у родителей,чтобы можно было прожить 10 месяцев,используя эти деньги.
N) произведения нечетных элементов 2)Составьте программу вычисления в массиве B(N) максимального среди отрицательных элементов и его номера. заранее огромное спасибо! очень нужно!
a:=39*54-sqr(84));
readln
end.
Напишите ошибку, ну и объясните, если не сложно)
В строке символов определить кол-во букв А.
Нужно составить программу на Паскале))