Дан массив из 10 элементов, числа в интервале от -100 до 100 включительно,выбрать числа заканчивающиеся на 5 и переписать их в массив b. посчитав количество, вывести количество элементов и массив b. паскаль
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(10,-100,100); a.Println; var b:=a.Where(x->abs(x) mod 10=5).ToArray; var n:=b.Length; if n>0 then begin Write(n,' элементов: '); b.Println end else Writeln('Нет искомых элементов') end.
program aaa; const n=50; var w, c, x, d10, d4, d1: integer; begin writeln ('Введите вес бандероли'); readln (w); if w <= n then c:=10 else if w mod n = 0 then c:=10+((w div n)-1)*5 else c:=10+5+((w div n)-1)*5;
d10:= c div 10; d4:= (c-10*d10) div 4; d1:= (c-d10*10-d4*4);
writeln ('стоимость бандероли: ',c,' драхм'); writeln; writeln ('для оплаты нужно не менее'); writeln (d10:10,' монет по 10 драхм'); writeln (d4:10,' монет по 4 драхмы'); writeln (d1:10,' монет по 1 драхме'); end.
Результат работы программы:
Введите вес бандероли 100
стоимость бандероли: 15 драхм
для оплаты нужно не менее 1 монет по 10 драхм 1 монет по 4 драхмы 1 монет по 1 драхме
Using System; using System.Collections.Generic; using System.Linq; using System.Text;
namespace ConsoleApplication5 { class Program { static void Main(string[] args) { int m, n; Console.WriteLine("Введите число m"); m = int.Parse(Console.ReadLine()); Console.WriteLine("Введите число m"); n = int.Parse(Console.ReadLine());
int[,] mass = new int[m, n];
int max = 0; for (int i = 0; i < m; i++) { for (int j = 0; j < n; j++) { Console.WriteLine("Введите (" + i + "; " + j + ")-ый элемент"); mass[i, j] = int.Parse(Console.ReadLine()); if (i == 0 && j == 0) max = mass[i, j]; else { if (mass[i, j] > max) max = mass[i, j]; } } }
Console.WriteLine("Maксимальный элемент равен " + max); Console.ReadKey(); } } }
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-100,100); a.Println;
var b:=a.Where(x->abs(x) mod 10=5).ToArray;
var n:=b.Length;
if n>0 then begin Write(n,' элементов: '); b.Println end
else Writeln('Нет искомых элементов')
end.
Пример
64 63 5 -45 30 74 -29 48 -87 -24
2 элементов: 5 -45