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

Почему программа выдаёт только 2 значения? const n=10; var a: array [1..n] of integer; d,i: integer; pd: real; begin for i: =1 to n do a[i]: =random(5)+1; begin d: =0; pd: =0; if (a[i]=2) then d: =d+1; pd: =(d*100)/n; write(pd) end; end. программа написана в pasclabc.net

👇
Открыть все ответы
Ответ:
09.02.2020
Ну во-первых: 
 for(int i=0;i<arrray.length;i++)
 arrray
Во-вторых рабочая прога:

public class ZnanijaCom{
     public static void main(String[] main) {
     int array[] = {1,1,3,4,5,6,7,7,6};
     int number;
         for(int i=0;i<array.length;i++) {
            for(int j=i+1;j<array.length;j++) {
                if (array[i] == array[j]) {
                    System.out.println("Najden povtor chisla " + array[i]);                                                System.out.println(" pervyj indeks " + i);
                     System.out.println(" vtoroj indeks " + j);
                }
            }
         }
     }
}
4,6(55 оценок)
Ответ:
Ампорик
Ампорик
09.02.2020
Program MinMax
var a: array [1..100] of real
var i, nmin, nmax: integer, min, max: real
BEGIN
for i := 1 to 100 do read a[i]; // вводим массив
min := a[1]; max := a[1]; nmin := 0; nmax := 0;
for i := 1 to 100 do
begin
if a[i] = min then nmin := nmin + 1;
if a[i] = max then nmax := nmax + 1;
if a[i] < min then begin min = a[i]; nmin := 1; end
if a[i] > max then begin max = a[i]; nmax := 1; end
end;
if nmin > nmax then write ('Min')
if nmin < nmax then write ('Max')
if nmin = nmax then write ('Ravno')
END.
4,8(100 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ