Sub maxZn()'заполнение массива Dim mas(20) S = "" Randomize For i = 1 To 20 mas(i) = Round(Rnd(100) * 100) S = S + Str(mas(i)) + "," Next i'поиск максимального числа и количества его повторений qty = 1 max = mas(1) 'предполагаем, что максимальное число в первом элементе массива For i = 2 To 20 If mas(i) = max Then qty = qty + 1 End If If mas(i) > max Then max = mas(i) qty = 1 End If Next i MsgBox "последовательность чисел " + S MsgBox "максимальное число " + Str(max) + "число повторений " + Str(qty) End Sub Sub test() Call maxZnEnd Sub
uses crt; var k:integer; n:integer; begin clrscr; k:=0; writeln('Тест по теме "Циклы"'); writeln('Вопрос 1. Алгоритм называют циклическим, >'); writeln('если в нем:'); writeln('1)Реализуется многократно повторяющаяся'); writeln(' последовательность действий'); writeln('2)Используются повторяющиеся праметры'); writeln('3)Много раз используются одни и те же операторы'); writeln('4)Используются команда выбора');write('Введите номер правильного ответа:'); read(n); if n=1 then k:=k+1; writeln('Вопрос 2. Сколько раз будет выполнятся цикл,<'); writeln('если начальное значение параметра -6'); writeln('конечное значение 6,'); writeln('шаг изменения параметра равен 3'); writeln('1)6 раз'); writeln('2)5 раз'); writeln('3)4 раз'); writeln('4) Не выполнится ни разу'); write('Введите номер правильного ответа:'); read(n); if n=2 then k:=k+1; case k of 1,2:writeln('Плохо'); 3: writeln('Удовлетворительно'); 4: writeln('Хорошо'); 5: writeln('Отлично'); end; readkey; end.
Без проверок и прочего, все как написано в задаче. Если нужно было с проверками - напишите, переделаю :) program Project1; var TotalA, TotalB, SoldA, SoldB : integer; priceA, priceB, sum: real; begin Write(' Введите цену товара "А":'); Readln(priceA); Write(' Введите количество товара "А" в начале рабочего дня:'); Readln(TotalA); Write(' Введите количество проданного товара "А":'); Readln(SoldA); Write(' Введите цену товара "Б":'); Readln(priceB); Write(' Введите количество товара "Б" в начале рабочего дня:'); Readln(TotalB); Write(' Введите количество проданного товара "Б":'); Readln(SoldB); sum:= ((priceA*SoldA)+(priceB*SoldB)); writeln('Выручка от продажи двух товаров за день:', sum:5:2); readln; end.
Sub test() Call maxZnEnd Sub