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

Напишите программу на паскаль с массива. я знаю что там должно быть написано со словом array.

на­пи­ши­те про­грам­му для ре­ше­ния сле­ду­ю­щей за­да­чи. на кон­троль­ной ра­бо­те по ал­геб­ре уче­ни­кам 9 клас­са было пред­ло­же­но 10 при­ме­ров. не­удо­вле­тво­ри­тель­ная оцен­ка вы­став­ля­ет­ся, если пра­виль­но ре­ше­но менее по­ло­ви­ны при­ме­ров. сколь­ко не­удо­вле­тво­ри­тель­ных оце­нок было по­лу­че­но уче­ни­ка­ми? если хотя бы один из уче­ни­ков пра­виль­но решил все за­да­чи, вы­ве­ди­те yes, иначе вы­ве­ди­те no. про­грам­ма по­лу­ча­ет на вход ко­ли­че­ство уче­ни­ков в клас­се n (1 ≤ n ≤ 30), затем для каж­до­го уче­ни­ка вво­дит­ся ко­ли­че­ство пра­виль­но решённых при­ме­ров.

👇
Ответ:
Valeriyanka2001
Valeriyanka2001
26.01.2021

===== PascalABC.NET =====

begin

 var n := ReadInteger;

 var a := ReadArrInteger(n);

 Println('Неудовлетворительных', a.Count(p -> p < 5));

 if a.Any(p -> p = 10) then

   Print('YES')

 else

   Print('NO')

end.


Напишите программу на паскаль с массива. я знаю что там должно быть написано со словом array. на­пи­
4,8(17 оценок)
Открыть все ответы
Ответ:
hfjfifj
hfjfifj
26.01.2021
Таблицы позволяют объединить однотипные данные в более-менее читабельную структуру, чего не делает словесное описание (как, например, приятней читать таблицу с датами и описанием исторических событий в таблице, чем читать словесную демагогию в учебиках). Таблицы позволяют ужать данные в размере, читателю сосредоточиться на главном. Они позволяют операторам обрабатывать её без каких-либо затруднений.

Еще пример: магазинные чеки. Не будет же машина (из-за технической сложности) или человек (из-за лени) писать на чеке: "продано столько-то столько-то того-то того-то ... пакет апельсинов весил шестьсот пядесят три грамма ... итд". На чеке будет табличка, где четко и точно будет написано то, что человек приобрел.
Вот. Так что табличные модели, несомненно, лучше словесных.
4,6(30 оценок)
Ответ:
Zhamik11
Zhamik11
26.01.2021
Const n=20;
type omas=array[1..n] of integer;
Procedure Del (var z:omas; k:byte); 
var i:byte; 
begin 
for i:=k to n-1 do z[i]:=z[i+1]; 
z[n]:=0; 
end; 
var a:omas; i,b:integer;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=random(20);
 write(a[i]:4);
 end;
writeln;
b:=6;
i:=1;
while (i<=n)and(a[i]<>b) do i:=i+1;
if i<=n then
  begin
  Del(a,i);
 writeln('Размерность массива = ',n-1);
 for i:=1 to n-1 do write(a[i]:4);
 writeln;
 end  else writeln('Массив не изменился');
end.
Пример:
  12  13   6   7  17   1  18  17   3   2  12   3  16   6   7  13   0   2   5  18
Размерность массива = 19
  12  13   7  17   1  18  17   3   2  12   3  16   6   7  13   0   2   5  18
4,6(96 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ