. Составить подпрограмму, вычисляющую значение true, если в двух заданных одномерных массивах нет равных элементов, и значение false в противном случае.
Объективность=Эти брюки стоят три тысячи рублей необъективность=Эти брюки дорого стоят Достоверность= все ныне живущие люди умрут недостоверность=люди бессмертны полнота=Ира, моя родная сестра, приехала погостить на пару дней неполнота=девушка актуальность=на вашем счёте 2 рубля неактуальность=в 1894 на счёте вашего прапрадедушки было семь шекелей ценная информация=хорошо написанная статья о том как вылечить больную печень. эта информация ценна для пьяницы не ценная=та же статья но для здорового шахтёра в уральских горах ценна не будет понятная информация=в долларе 56,89 рубля непонятная информация=ドル56.89ルーブル
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(20,2,5);Write('Оценки за диктант: ');a.Println; Writeln('Двоек: ', a.Where(t-> t = 2).Count); Writeln('Троек: ', a.Where(t-> t = 3).Count); Writeln('Четверок: ', a.Where(t-> t = 4).Count); Writeln('Пятерок: ', a.Where(t-> t = 5).Count); Writeln('Средний за диктант: ', a.Average:0:2); end.
Пример: Оценки за диктант: 4 3 2 3 5 3 3 2 5 2 3 5 4 3 3 4 2 2 3 2 Двоек: 6 Троек: 8 Четверок: 3 Пятерок: 3 Средний за диктант: 3.15
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
