uses crt; var i:integer; a:array[1..7] of integer; begin for i:=1 to 7 do begin a[i]:=random(10); write(a[i]:3); end; writeln; write('Номера дней, в которые не было осадков: '); for i:=1 to 7 do begin if a[i]=0 then write(i:2); end; writeln; end.
Здесь количество осадков - случайная цифра от 0 до 9. Если нужно сделать ввод чисел вместо случайных, вместо строчки a[i]:=random(10); пишем read(a[i]);
Пять верст до небес и все лесом. Эка верста выросла (как Коломенская верста) . За семь верст киселя хлебать. Ты от дела на недельку, а оно от тебя на саженьку. Видеть на сажень сквозь землю. Загадка разгадка да семь верст правды. Каждый купец на свой аршин мерит. Прямой, будто аршин проглотил. Семи пядей во лбу. Сам с ноготок, а борода с локоток. От горшка два вершка, а уже указчик. Полено к полену - сажень. Москва верстой далека, а сердцу рядом. Любовь верстами не меряется. Сто верст молодцу не крюк. От слова до дела - целая верста. Верстой ближе - пятаком дешевле. Жили с локоть, а осталось с ноготь. В чужих руках ноготок с локоток. Дай с ноготок, запросит с локоток. Семь аршин говядины да три фунта лент (о бессмыслице)
Var a: array of integer; // Объявление массива целых чисел i, n: integer; // объявление целочисленных переменных begin // Запросим с клавиатуры размер массива // и запишем его в переменную n write('введите n:'); readln(n);
// Теперь выделим память под n элементов массива SetLength(a, n);
// теперь запросим с клавиатуры n чисел для массива for i := 0 to n-1 do begin write('a[', i, ']='); readln(a[i]); end;
// теперь в цикле уменьшим каждый элемент на единицу for i := 0 to n-1 do a[i] := a[i] - 1;
// распечатаем массив for i := 0 to n-1 do write(a[i], ' '); end.
uses crt;
var i:integer;
a:array[1..7] of integer;
begin
for i:=1 to 7 do begin
a[i]:=random(10);
write(a[i]:3);
end;
writeln;
write('Номера дней, в которые не было осадков: ');
for i:=1 to 7 do begin
if a[i]=0 then write(i:2);
end;
writeln;
end.
Здесь количество осадков - случайная цифра от 0 до 9. Если нужно сделать ввод чисел вместо случайных, вместо строчки a[i]:=random(10); пишем read(a[i]);