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

1) дан одномерный массив из 12 элементов. составить программу заполняющую массив целыми числами в интервале -20 до 15 2)требуется подсчитать кол-во пятерок , четверок, тоек полученных за контрольную работу, если число учеников равно 8 3)дан одномерный числовой массив,изменить знак элементов массива к[1; 12] на противоположный

👇
Ответ:
darkhanio
darkhanio
19.03.2020

var

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

  i:integer;

begin

  randomize;

  writeln('Сгенерированный массив:');

  for i := 1 to 12 do

  begin

    a[i] := random(36) - 15;

    write(a[i], ' ');

  end;

  writeln;

end.

 

//вторая программа

const

  n = 8;

var

  a:array[1..n] of integer;

  i, count3, count4, count5:integer;

begin

  randomize;

  writeln('Оценки учеников:');

  for i := 1 to n do

  begin

    a[i] := random(3) + 3;

    write(a[i], ' ');

    if a[i] = 5 then

      inc(count5);

    if a[i] = 4 then

     inc(count4);

    if a[i] = 3 then

      inc(count3);

  end;

  writeln;

  writeln('Троек - ', count3);

  writeln('Четверок - ', count4);

  writeln('Пятерок - ', count5);

end.

 

 

 

 

//третья программа

var

  k:array[1..12] of integer;

  i:integer;

begin

  randomize;

  writeln('Сгенерированный массив:');

  for i := 1 to 12 do

  begin

    k[i] := random(36) - 15;

    write(k[i], ' ');

  end;

  writeln;

  writeln('Преобразованный массив:');

  for i := 1 to 12 do

  begin

    k[i] := k[i] * (-1);

    write(k[i], ' ');

  end;

end.

4,4(21 оценок)
Открыть все ответы
Ответ:
dawlatowaalbina
dawlatowaalbina
19.03.2020
Const n=30; 
var a:array[1..n] of integer;
i,min,max,s:integer; sr:real;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(11)+10;
 write(a[i]:6);
 end;
writeln;
min:=a[1]; max:=a[1]; 
s:=a[1];
for i:=2 to n do
 begin
 if a[i]<min then min:=a[i];
 if a[i]>max then max:=a[i];
 s:=s+a[i];
 end;
sr:=s/n;
writeln('min = ',min,' max = ',max,' sr = ',sr);
s:=0;
for i:=1 to n do write(a[i]-sr:6:1);
end.

Пример (для 10 дней):
Массив A:
    11    16    19    15    13    19    11    16    17    17
min = 11 max = 19 sr = 15.4
  -4.4   0.6   3.6  -0.4  -2.4   3.6  -4.4   0.6   1.6   1.6
4,7(28 оценок)
Ответ:
nikysha04
nikysha04
19.03.2020
Истинные:
1. Земля круглая
2. Лето наступает после весны
3. Когда идет дождь - земля наполняется влагой
4. Москва - столица России
5. Если горит красный сигнал светофора - оставайся на месте
6. Сахар сладкий
7. Арбуз - это ягода
8. Лимон кислый
9. Осенью опадает листва на деревьях
10. 1 января начинается Новый год.
Ложные высказывания:
1. Коровы летают
2. 2+2=5
3. Информатика - наука о рыбах
4. Глаза - органы слуха
5. Киев - столица Ирландии
6. Год заканчивается летом
7. Когда наступает ночь - светит солнце
8. Солнце вращается вокруг Земли
9. Черепаха - самое быстрое животное в мире
10. Соль горькая 
4,5(64 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ