М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
tanyapolya76ovv7hr
tanyapolya76ovv7hr
09.10.2022 05:01 •  Информатика

Составить программу дан массив натуральных чисел , размерность -12 ! ) заполнение массива производить с клавиатуры 2) вывести на печать только элементы кратные 2 3)найти сумму первых пяти элементов составить программу дан массив целых чисел , размерность -12 1) заполнение массива производить случайными числами из диапозона [-10; 35] 2)вывести на печать только положительные элементы 3)найти количество отрицательных элементов составить программу известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . определить количество ткани ( метров) произведенных цехом за месяц .

👇
Ответ:
Макс00796
Макс00796
09.10.2022

1 программа
uses crt;
var
a: array [0 .. 12] of integer;
sum, i:integer;
begin
sum:=0;
for i:=1 to 12 do
begin
write('Write a[ ',i,' ] = ');
readln(a[i]);
end;
for i:=1 to 12 do
begin
if a[i] mod 2=0 then writeln(a[i]);
end;
for i:=1 to 5 do
begin
sum:=a[i]+sum;
end;
write('SUMA = ');
writeln(sum);
readln;
end.


2 программа
uses crt;
var
a: array [0 .. 12] of integer;
sum, i:integer;
begin
sum:=0;
for i:=1 to 12 do
begin
a[i]:= random(46)-10; // random(max-min+1)+min;
end;
for i:=1 to 12 do
begin
if (a[i]>0) then writeln(a[i]);
end;
for i:=1 to 12 do
begin
if a[i]<0 then inc(sum);
end;
write('OTRIC ELEMENTOV = ');
writeln(sum);
readln;
end.

ткань ...

uses crt;
var
days,m:integer;


begin
days:= 30; //дней в месяце
m:=135; //метров сделали за день
writeln('За месяц = ',days*m, ' метров ');
readln;
end.

4,7(71 оценок)
Ответ:
flexELITE3
flexELITE3
09.10.2022

Задача #1

 

var a:array[1..12] of integer;

i,s:integer;

begin

s:=0;

for i:=1 to 12 do

read(a[i]);

for i:=1 to 12 do

if a[i] mod 2 = 0 then write(a[i],' ');

for i:=1 to 5 do

s:=s+a[i];

writeln(s);

end.

 

Задача #2.

var a:array[1..12] of integer;

i,s:integer;

begin

s:=0;

for i:=1 to 12 do begin

randomize;

a[i]:=random(46)-10 {функция рандом будет вызывать значения от 0 до 45, и еще -10 получится от -10 до 35}

end;

For i:=1 to 12 do begin

if a[i]>0 then write(a[i],' ');

if a[i]<0 then s:=s+1;

end;

writeln(s);

end.

Стоит учесть что он не будет учитывать 0. Например, он может выдать вам 5 положительных(напишет) и количество отрицательных - 2, И это означает что остальные 5 в массиве нули.

 

Задача #3

 

var a:integer;

begin

read(a);

write(a*30);

end.

 

 

4,4(35 оценок)
Открыть все ответы
Ответ:
kotflin
kotflin
09.10.2022
var   s : string[50];
  i, j, k : word;  
 f : boolean;  
function isSpace(ch : char) : boolean;
begin   isSpace := false;  
if ch = ' ' then isSpace := true;
end;  
begin   f := false;  
   repeat     j := 0;
    writeln('введите строку, состоящую из 2 слов');
    readln(s);    
for i := 1 to length(s) do    
   if isSpace(s[i]) then  
    begin    
     inc(j);      
   k := i;       end;
     if j =1 then f := true;
    until f;    
write(copy(s, k + 1, length(s)), ' ', copy(s, 1, k - 1)); 
end.
недавно такую писала :)
4,6(81 оценок)
Ответ:
Задание 1
Информационный объем I = 44100 Гц * 5 * 60 с * 16 бит = 211680000 бит = 26460000 байт = 25839,84375 Кбайт = 25,23422241210938 Мбайт

Задание 2
I = 1,3 Мбайт t = 1 мин Частота дискретизации v = 1,3 * 1024 * 1024 * 8 бит / 60 с / 8 бит = 22719,147 Гц

Задание 3
I = 5.1 Мбайт, t = 2 минуты, v = 22050 Гц Разрядность аудиоадаптера i = 5.1 * 1024 * 1024 * 8 бит / (2 * 60) с / 22050 Гц = 16,1685 бит (округленно 16 бит)

Задание 4
I = 0.01 Гбайт, i = 16 бит, v = 44100 Гц Время t = 0,01 * 1024 * 1024 * 1024 * 8 бит / 16 бит / 44100 Гц = 121 с (округляем до 120 с)
4,5(46 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ